ceeeeecin 


EEE HHH NNN NNN GGGGGGGGGGGG 
EEE HHH NNN NNN GGGGGGGGGGGG 
EEE XXX XXX CCC HHH HHH NNN NNN 
EEE XXX XXX CCC HHH HHH NNN NNN GGG 
EEE XXX XXX CCC HHH HHH NNN NN GGG - 
EEE XXX XXX Lcc HHH HHH NNNNNN NNN GGG 
EEE XXX = XXX CCC HHH HHH NNNNNN NNN GGG mM 
EEE XXX = XXX CCC HHH HHH NNN NNN GGG a] 
EEEEEEEEEEEE Xx ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG a] 
EEEEESEEEEEE XXX ccc HHHHHHHHHHHHHHH_ NNN NNN NNN GGG mM 
EEEECEEEEEEE XXX ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG 4 
EEE XXX XXX ccc HHH HHH NNN NNNNNN GGG  GGGGGGGGG a] 
EEE XXX = XXX ccc HH HHH NNN NNNNNN GGG G6GGGGGGGG a 
EEE XXX = XXX CCC HHH HHH NNN NNNNNN GGG 6GGGGGGGGG " 
EEE XXX XXX CCC HHH HHH NNN NNN GGG GGG 0 
EEE XXX XXX CCC HHH HHH NNN NNN 6GG GGG 0 
EEE XXX XXX CCC Hi HHH NNN NNN GGG GGG 0 
EEE NNN GGGGGGGGS P 
FEE NNN GGGGGGG4G P| 
EEE NNN GGGGGGGGG . 
P 
P) 


| 
HHH NNN NNN _ GGGGGGGGGGGG | 
GGG 


P| 
P| 
P 
P 
P 
Pp 
P 
P 
P 
R 
R 
R 
R 
R 
R 
R 
$s 
Ss 


**FILE**1D**EXCOBG 


| 
| 

EEEEEEEEEE XX XX  CCCCCCCC DDDDDDDD — BBBBBBBB GGGGG66G | 

EEEEEEEEEE XX XX _CCCCECCE DDDDDDDD  — BBBBBBBB GGGGGGGG | 

EE XX XX CC DD DD BB BB GG | 

EE XX XX CC DD DD BB BB GG 

EE XX XK CC DD DD BB BB GG 

EE XX XX CC DD DD BB BB GG 

EEEEEEEE XX cc DD DD BBBBBBBB GG 

EEEEEEEE XX cC DD DD BBBBBBBB GG | 

EE xX XX CC DD DD BB BB GG GGGGGG | 

EE XX XX CC DD DD BB BB GG GGGGGG | 

EE XX xx CC DD DD BB BB GG GG vs 

EE XX XX CC DD DD BB BB GG GG aa | 

EEEEEEEEEE XX XX CCCCCCCC DDDDDDDD  BBBBBBBB GG6G66 cont | 

EEEEEEEEEE XX XX  CCCCCCCC DDDDDDDD BBBBBBBB GGGGGG coal | 
| 

LL III SSSSSSSS | 

tt III SSSSSSSS 

tL 1] SS 

tL 1] $§ 

tL 1] $5 

tL 1 $§ 

tL 1] SSSSSS 

tt 1] SSSSSS 

tL 1] SS 

tL 1] SS 

tt 1] 85 

LL li ss 

CLLLLLLLLL «©=sLNIIII «© SSSSSSSS | 

CLLLELLLEL «=sIIII «= 8888588 | 
} 
| 
| 
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MODULE onchoeeg ZTITLE ‘Conditionally assembled debugging routines’ 


IDENT = ‘'Vv04-000' 
ADDRESSING. MODE (EXTERNAL=LONG RELATIVE, NONEXTERNAL=WORD_RELATIVE) 


BEGIN 


Lee AAA AA AAA AAA EEA AEE EEA AREA ATER AREER EEES 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
'* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED 


!® THIS SOFTWARE ss FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
!* ON ORDANCE W T C THE 


*® 

® 

® 

fe 

a 

® 

i N . 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
' * 
is THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
fe 

® 

® 

*® 

a 

* 

* 

® 


't AND SHOULD NOT BE CONSTRUED AS A TMENT BY DIGITAL EQUIPMENT 
's CORPORATION. 


i DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


BJE 
OMM 


vie LITY FOR THE USE OR RELIABILITY OF ITS 


1 
H NOT SUPPLIED BY DIGITAL. 


Lee RRR 


"FACILITY: EXCHANGE - Foreign volume interchange facility 
ABSTRACT: Miscellaneous debug and trace routines 

ENVIRONMENT: VAX/VMS User mode 

AUTHOR: CW Hobbs CREATION DATE: 16-July-1982 
MODIFIED BY: 

i V03-002 CWH3002 CW Hobbs 12-Apr-1984 
Add routines to dump FAB and NAM, 

i 

le 


ee 
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EXCHSDBG Conditionally assembled debugging routines ib-se -1984 00:45: AX-11 Bliss-32 V4.0-74 Page 2. ExC 
v04-000 . eesti 1e3eb=188e 99:39:68 — LEXCHNG SRETEXCDBG O32, aaray v04 
; ‘8 0087 Include files: 
: 50 0049 1 MACRO $module name string = ‘exch$dbg' %; ! The require file needs to know our module name | 
; 1 050 1 REQUIRE *SRCSTEXCREQ’ | 
: 3g itt a ee | 
. = 0145 1 PSECT 
3 5 150 1 OWN = exch$dbg_own (WRITE) 

: e 182 | 
: 8 0138 ! XSBTTL ‘Module table of contents’ 
: oy 0185 : Module table of contents: 
: 6¢ 0189 1 FORWARD ROUTINE 
; 8 0158 #1 exch$dbg_ quap ee R -pinstegace. ! Format the contents of a DOS11$ block 
>; 64 0159 1 exch$dbg_fab_dev_ ! Print device characteristics from FAB info 

5 65 0160 1 exch$dbg_fa a “ind, ' Hex one of a fa 

; ¢ 0161 #1 exch$dbg_ fab- — “print, ! Print the name information attached to a FAB 

eg * B18 1 exch$dbg_nam ' Hex dump of a nam 
3 os Bier } exch$dbg_ utl “print. devchar ! Explode a DEV device characteristics field (e.g. FABSL_DEV) 
: 70 Naor | 
: 7 Q166 1 | EXCHANGE facility routines | 
Tae 0168 1 EXTERNAL ROUTINE | 
$ 74 0169 1 exch$dos11 goxpand. filename, ! Expand filename info into a context block 
3 75 0170 1 exch$util_doslictx_allocate, ' Grab a context block 

3 6 O12 ' exch$util_ “doslictx_release : NOVALUE ' Return the context block 

: 78 0173 1 : 

; He bige : Bound declarations: 

: 81 0176 1 ‘BIND 

;  B2 0177 1! 3 
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Page 


3 Bs i? 1 25 ROUTINE exch$dbg_dump_dosv (volb : $ref_bblock, flags) : NOVALUE = 

; Hy : » Saberre protic ("dbg_dump_dosv> '); 

; 88 4 ¢ LOCAL 

; 1 ctx : $ref_bblock, 

; Ww 0184 ent gref-bblock. 

; wh 0185 Lcl : Sbblock (4], 

ey. 01 § first 

7 F 01 H 

; 94 0188 

a oe 818% BIND : 

3; © 190 dosv = volb CvolbSa_vfmt_specific] : Sref_bblock 

;. WT 0191 3 

:; B136 

; FF 019 BUILTIN 

; 100 0194 ACTUAL COUNT 

: 101 0195 : 

: 10¢ 0196 

; 0197 2 IF ACTUALCOUNT () EQL 2 

> 104 0198 THEN 

: 105 0199 tcl €0,0,32,0] = .flags 

> 106 0200 ELSE 

$s 107 0201 tcl C0,0,32,0] = -1; 

: 108 pe0e 

; 109 020 IF .lcl Cdmpdsv$v_volb] 

; 110 0204 THEN 

; He Bso2 § Sprint_fao (' dump_dosv> entry = volb !XL, dosv !XL', .volb, .dosv); 

s 443 0207 2 $block_check (2, .volb, volb, 623); 

: «(114 0208 2 $block“check (2, .dosv, dosii, 6245; 

: 115 0209 2 

: (116 0210 § IF .lcl Cdmpdsv$v_status] 

» TT 0211 THEN 

; «6118 P Osi§ 2 $Sprint_fao (' dump_dosv> status - posvalid !UL, bot !UL, tapemark !UL, eot !UL, dir !UL, curmrkd !UL" 
: «119 P 02135 2 -dosv Cdos11$v_position_valid], .dosv Coos ttcy heg.of tape], .dosv Cdos11$v_tape_mark] 
3 \¢9 asté 2 .dosv Cdosi1$v~end_of_tape], .dosv C[dos11$v_directory], .dosv [dos11$v_current_markedJ); 
3 1$¢ 0216 5 IF .tcl Cdmpdsv$v_position] 

: te 0217 2 THEN 

3: «124 P 0218 § $print_fao (' dump_dosv> .dos11$a_current ne 'XL, .dosi1$l_current_file !UL", 
3 is? 0555 .dosv (dos11$a_current_entryJ, .dosv Cdosil$(_current_ftleJ); 

3 sf bs 1 IF .lcl Cdmpdsv$v_entries) 

; je § THE 

; 44 02 Z BEGIN 

: } 1 03 5 If the pointer points to the queue header, we have reached the end of the List 

. % ‘ 8 ‘ ent = .dosv [dos11$a_entry_flink); 

> (134 8 ctx = exch$util_dosiTctx_allocate (.volb, 0); ! Grab a context block for the loop 
s 3355 0229 first = true; 

: 6 0 WHILE .ent NEQ dosv [dos11$q_entry_header] 

; is § 4 BEGIN 

; 139 4 

; 140 0234 4 IF .first 
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EXCHSDBG 
v04-000 Module table of contents EXCHNG. SRCJEXCDBG.B32; (3) 


< 
Oo 
> 


BEGIN 
Socint_Lit > dump_dosv> sr Entry F link Blink Name Block Val"); 
p oe wea ah. gear Padel tha, nates Scuderte dete theettRe nites, Kh! es Cet bli. 
- dosv_ (dos entry_header osv Cdos11$a_entry_flink], .dosv [dos11$a_entry_ 
12, UPLIT BYTE (audue-heSder'), $9999" bg9s . “ | 


END; 
first = false; 


; 13) 0235 4 : 
; 128 6 $ : 
; 144 0238 ; 
> 145 8 9 H 
>; 146 40 5 : 
: 147 0241 4 : 
: «148 0 g 4 H 
; 169 02435 4 3 
; 190 0244 4 CHSMOVE (dosilctx$s_entry, ent Cdosilent$l_filename_1], ctx Cdoslictx$t_entry]); : 
3 13) 8 Fi : exch$dos1l_expand_fTlename (.ctx); | : 
: 13 P 0 03 4 Sprint_fao (' ump _dosv> !3UL !XL !xXL !XL  !13AF 'SUL 'UL', : 
> 154 P0248 4 -ent CdosTient$w_file_number), ent, .ent Cdostlent$a_flink], .ent Cdosilent$a_blin. ; 
,. 355 P 0249 4 ctx Cdoslictx$l-exp_fullname len}, ctx doslictx$t_exp_ fullname]. : 
s 128 8520 ? «ent Cdosilent$w_blocks], .en€ Cdostient$v_blocks_validJ); : 
; 158 0954 4 ent = .ent Cdosllent$a_flink]; ! Move to the next r 
; 159 0253 3 END; F 
: 160 0254 ; ; 
3; 161 0255 exch$util_dosl1ctx_release (.ctx); ! Return the context block : 
; 166 0256 2 ND; 3 
: #16 0257 2 ; 
> «164 0258 2 RETURN; 3 
s 165 0259 1 END; ; 
-TITLE EXCHSDBG Conditionally assembled debugging rout | : 

nes | e 

- IDENT \V04-000\ : 

| i 

-PSECT EXCHSDBG_PLIT,NOWRT,2 ; 

6D 64 3! 0 20 20 00000 P.AAB: .ASCII \ dump_dosv> entry - volb !XL, dosv !\ ; F 

2D 20 79 72 74 6E€ 65 Q000F : ; 

73 6F 64 20 20 2C 4C OQOOTE 3 2 

00 00 4C 58 B98 8 ASCII \XL\<0><0> : | 3 

OQ1Q0EOO02A O002C P.AAA: .LONG 17694762 3 3 

00000000° 00030 -ADDRESS P.AAB 3 : 

6D 75 64 90 20 $9 B08 4 P.AAD: .ASCII \ dump_dosv> status - posvalid !UL, bo\ ; 3 

20 73 75 74 61 74 0043 ; F 

sf 4c 55 ¢] 0 64 69 00052 ; 3 

0 2¢ 4 55 21 20 74 0005¢ ASCII \t !UL, tapemark !UL, eot 'UL, dir 'UL, c\ : ; 

65 2 sf — eS 2. Spee : $ 

4C 1 $3 2 $9 Se A 3 3 

20 64 68 6D 72 75 00084 ASCII \urmrkd !UL\<0><0> : 3 

O10E00SA 00090 P.AAC: .LONG 17694810 ; 3 

at 0000' on eADDRESS P.AAD r : 

6D 75 64 $9 20 0 98 P.AAF: .ASCII \ dump_dosv> .dosi1$a_current_entry \ ; : 

4 3) 1 6F 64 2E OA 3 F 

9 72 74 6€ 65 SE 74 ge . : : 

E 20 20 $§ 4C § 21 Q00C eASCII \IXL, .dosi1$l_current_file !UL\ $ 3 

4 6€ 65 72 g it ; $ 

4C 3 43 : ; 

ore 004 OE0 P.AAE: .LONG 17694792 3 : 

08 00gr OOE4 «ADDRESS P.AAF : ; s 

6D 75 64 20 20 OOE8 P.AAH: .ASCII \ dump_dosv> Num Entry Flink \ 3 3 
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suse iii iii! 


0 3 76 73 6F 64 
0 4C 58 21 20 ¢9 


21 20 20 20 20 4¢ 


al 
~ancvmLl 


oe 


ASCII \ age Name Block Val- 
\<0> 


P.AAG: .LONG 17694799 
«ADDRESS P.AAH 
P.AAJ: .ASCII \ dump_dosv> !3UL !XL !XL !XL !13N 


oo 
oo 


wero 


VINE 


ASCII \AF 'SUL 'UL\<0><0><0> 


P.AAI: .LONG 17694777 
«ADDRESS P.AAJ 
P.AAK: .ASCII \queue-header\ 
P.AAM: .ASCII \ dump_dosv> 'SUL IML OIXL OEXL '13\ 


oo 
oo 


> = fr ¢ 
20 4C 58 21 20 20 


21 20 20 20 20 4¢ 


VINE VIO 
Wenn 


sASCII \AF SUL !UL\<0><0><0> 


P.AAL: .LONG 17694777 
-ADDRESS P.AAM 


OOF SVAN NOOO F SMUUVMVIOOONWEL Ls 
SOMO WOMOM OA" WOOM MONOu 
OWME RNIN NOWME RINIWNIO FOOnn sS 
ouou0- 0-0 un" 0 | OO FMWMOoOm 
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“EXTRN EXCHSUTIL FAO BUFFER 
-EXTRN LIBSPUT_OOTPUT, EXCHSUTIL_BLOCK_CHECK 


.PSECT EXCHSDBG_CODE .NOWRT,2 
OFFC 00000 .ENTRY EXCHSDBG_DUMP_DOSV, Save R2,R3.R4,R5,R6,R7,-; 0178 
R8,R9,R10,R11 ; 
00002 MOVAB LIBSPUT OUTPUT, R11 
#84 vot. R4 
CAPS, A 
MOVL FLAGS, LCL 
2$ 
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00 
54 04 AC 0000 


n= 
AM 


04 
0000" P.AAA 
#3, EXCHSUTIL_FAO_BUFFER 


BSPUT_OUTPUT 
579, R2 
R1 
VOLB, RO 
JSB EXCHSUTIL BLOCK. CHECK 
(R4), R 
#3539197, R2 
’ 24 A 
SB EXCHSUTIL_BLOCK_CHECK 
“i, , &$ 
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Module table content -Sep- EXCHNG. SRC 6.832; 
9 DD 00148 PUSHL RO 

§8 F 146A CALLS #1, LIBSPUT_OUTPUT 

6 D 138 MOVL (ENT), ENT 
1 1 BRB 7 
DD 00152 9$: PUSHL CTX 

00000000G_ EF 01 FB 00154 CALLS #1, EXCHSUTIL_DOS11CTX_RELEASE 
04 00158 RET 
; Routine Size: 348 bytes, Routine Base: EXCHS$DBG_CODE + 0000 
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v04- encnbabe tab dev print — 1228671382 93:53:68 YEXCHNG SRe EXCDBG.B32; . (4) v04 
s 67 8 $9 1 GLOBAL ROUTINE exch$dbg_fab_dev_print (fabb : Sref_bblock) = ZSBTTL ‘exch$dbg_fab_dev_print’ : 
: 12 ? BEGIN : 
; 156 88 Sdbgtrc_prefix ('fab_dev_print > '); ; 
; iW 64 : 
; 17¢ 65 OWN : 
co ae 98 devbufsiz, : 
; 174 6 devchar, | ; 
; 175 68 devclass, : 
3; if 0269 devdepend, : 
: 177 0270 devnam : $bblock (64), 3 
; «178 0271 devnamlen, : 
3; i 0 if: devtype, : 
: 180 027 maxblock; : 
s 181 0274 3 
: \s¢ 0275 OWN ; 
cs oe 0276 dev_item : VECTOR (22, LONG] INITIAL ( | : 
; «186 0277 WORD (dvi$_devbufsiz, 4), LONG (devbufsiz,0), : 
> 185 0278 (dvi$_devchar*16 OR 4) devchar, 0, | ; 
> 186 0279 (dvi$-devclass*16 OR 45 devclass, 0, | ; 
; 187 0280 2 (dvi$_devdepend*16 OR 45 devdepend, . | ; 
; 188 0281 2 (dvi$—fulldevnam*16 OR 64), devnam, devnamlen, : 
: 189 osee § (dvi$_devtype*16 OR 4) Covt ype, 0, ; 
: 190 028 (dvi$-maxblock*16 OR 45, maxblock, 0, ; 
: 191 0284 2 0); | ; 
3 13 0285 § 3 
, 39 0286 LOCAL | : 
: 194 0287 status, 3 
: «195 0288 inp_desc : $desc_block, : 
: 196 0289 tmp_desc : $desc_block, : ‘ 
: Lb 4 BSo9 nam: $ref_bblock; ! Pointer to the name block : 
; 199 0292 5 nam = .fabb Cfab$l_nam); ! Get pointer to the name block ; : 
3 oo OSaz § $stat_str_desc_init (inp_desc, .nam Cnam$b_dev], .nam [nam$l_dev]); ! Input Device name address : 
; 202 0295 2 status = $getdviw (efn=0, devnam=inp_desc, itmlst=dev_item); F 
; 203 0296 2 IF NOT .status 3 
; 204 0297 THEN ‘ 
; 205 0298 BEGIN f : 
; 206 0299 $Sprint_fao (‘s*e** Error in $GETDVI for device ""!AS' xe", jinp_desc); 3 
; 207 0300 3 status = ((.status AND ZX"FFFFFFF8') OR 1); | ; 
; 208 0301 ; SIGNAL (Swarning_stat (status)); : 
; 209 Bang RETURN 0; : 
3 $19 030 END; g 
: 211 0304 : 
5 $i¢ 0305 tmp_desc Cdsc$w_length] = .devnamlen; $ 
3 $1 0306 tmp_desc [dsc$a_pointer] = devnam; ; : 3 
: 214 0307 Sprint_fao (‘Getdvi for name "!AS"' resolved to device ‘!AS'",inp_desc,tmp_desc); _ 3 
3: 215 0308 sor int. tee ("Bufsiz = !UL, Maxblocks = 'UL, Class = !XB, Type = !XB', Tdevbufsiz, .maxblock, .devclass, ._ : 
: 216 0309 BEGIN | : 
: 17 0310 BIND : 
; 218 0311 dep = devdepend : $bblock, : 
: 344 bai6 ev = devchar : $bblock; ; 
: 220 P 031 $Sprint_fao ("Cylinders = !UL, Tracks = !UL, Sectors = !UL, BevChar = !xXL° : 
> 221 0314 -depl0,16,16,0], .depl0,8,8,0), .depl0,0,8,0)J. .dev (0,0,32,04); ; 
; $$ 0315 § END; : 
3 dé 0316 : 


———— 


5 
EXCHSDBG Conditionally assembled debugging routines 1}. $ep-1984 00:45: AX-11 Bliss-32 V4.0-74 Page 9 
v04-000 sucntdbe, feb Gen print it 1ergeh7 138 99:53:85 «= cine saeSexcouc: 635, 9 4) | 
3 $ 8 7 exch$dbg_utl_print_devchar (.devchar); 
g 6 0319 RETURN 1; 
g 7 0320 END; 
-PSECT EXCHSDBG_OWN,NOEXE,2 
00000 DEVBUFSIZ: 
BLK 4 
0004 DEVCHAR: .BLKB 4 
0008 DEVCLASS: 
-BLK 4 
O000C DEVDEPEND: 
BLK 4 
00010 DEVNAM: .BLKB 64 
00050 DEVNAMLEN: 
~BLK 4 
00054 DEVTYPE:.BLKB 4 
00058 MAXBLOCK: 
-—BLKB 4 
0004 0008 O005C DEV_ITEM: ue & 
00000000" 00060 “ADDRESS SEVBUFSIZ : 
00000000 00064 ON 0 ; 
00020004 00068 LO $ 
00000000' 0006C ADDRESS DEVCHAR ‘ 
00040004 BR ORO OOS 00070 -LON ; 
00000000' 00078 [ADDRESS BEVCLASS 3 
000A0004 00000000 0007C " “ F 
00000000° 00084 ADDRESS DEVDEPEND : 
00E80040 00000000 00088 ‘ 0, 3 
00000000" 00000000" 00090 ADDRESS DEVNAM, DEVNAMLEN : 
00060004 00098 .LON 2 3 
00000000' 0009C ADDRESS DEVTYPE 3 
001A0004 00000000 Q00A0 -LONG 0, 1703940 : 
00000000" 000A8 ADDRESS MAXBLOCK 5 
00000000 00000000 OdOO00AC -LONG O, 0 3 
-PSECT EXCHS$DBG_PLIT,NOWRT,2 
6—E 69 20 72 6F 72 72 45 20 20 gh 2A 2A 2A 2A 001D4 P.AAO: .ASCII \eeeee Error in $GETDVI for device “!AS'N ; 
65 64 20 72 6F 66 29 49 56 44 54 45 47 24 20 OQO1E3 : 
22 41 21 22 20 65 63 69 76 OO1F2 3 
00 2A 2A 2A 2A 2A 6 0 OQO1FC eASCII \_ teeee\<0> ; 
4 E002F 00204 P.AAN: .LONG Tpepere? : 
09900 0" 88 08 ADDRESS P 3 
65 6D 61 6€ 20 72 6F 66 20 69 76 64 74 4 O20C P.AAQ: .ASCII \Getdui for name "!AS"' resolved to device\ ; 
65 76 6C 6F 73 65 72 20 22 53 41 21 $¢ 0 00218 3 
65 63 69 76 65 64 20 6F 74 20 Q022A ; 3 
00 00 22 53 41 21 se 0 00 ASCII \_"IAS*'\<O><0> i 
4 00 023C P.AAP: .LONG i Sy +1 766 3 
09 0000' 00240 ADDRESS P.AAQ ; 
20 20 $f 4C 55 21 $9 30 20 7A 73 6 4 0244 P.AAS: .ASCII ic. 2 = 'UL, Maxblocks = 'UL, Class =\ ; 
ce pb 2nw ht @ $9 6F 6C 6¢ 7 4 4D 00253 : 
D 20 3 61 43 2 0 2C 00262 ; 


J 
EXCHSDBG Conditionally assembled debugging routines 16 
v04-000 exch$dbg, fab dev. print wie 14 
21 20 30 20 65 70 79 54 20 20 2C 42 58 2 C 
a5 i a ae tts 
4 68 9 00 
0000 09" 0284 
. ae 4 $9 D 20 73 72 65 64 6 $3 of 4 0 by 
2c 4C 55 21 20 30 20 73 6B 63 8! ¢ 4 €9 5 029 
4 > tf te 8. © $2 O2A6 
30 20 72 61 68 4 6 65 44 20 sc 4¢ 55 21 20 00280 
0 4C 58 21 20 O02BF 
010E0035B 88 C4 
00000000' 002C8 
003C 00000 
55 00000000G 00 9€ 00002 
54 00000000G EF 9E sd 
53 0000" CF + 0010 
5E 10 C2 00015 
50 04 AC 00 00018 
50 28 AO 00 0001C 
OA AE 010E 8F B60 C44 
08 AE 39 AO 9B 00026 
OC AE 44 ad 00 4h 
7E 7C 00030 
7E 7C ait F4 
50 A3 OF Wie: 
1C AE 9F 00037 
7E 7C OOO3A 
00000000G 00 08 FB Begzs 
52 50 DO 0004 
25 52 E8 00046 
08 AE 9F 00049 
0000" CF 9F 0004C 
64 02 FB pobae 
50 DD 0005 
65 01 FB 00055 
50 52 07 CB 00058 
52 50 01 ¢9 0005C 
52 97 8A Bes 
2 OD 0006 
000000006 00 01 FB BR 082 
58 11 0006C 
6E 44 ‘3 BO 0006 
04 AE 04 A3 9E 0007 
5E DD 0007 
OC AE 9F 00079 
0000' CF OF Baek 
64 3 FB 
0 OD 8 
65 1 FB 
48 ‘ DD 00088 
FC AS OD 00088 
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1$: 
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«LONG 
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ASCII 
- LONG 


AX=11 Bliss-32 V4.0-742 
EXCHNG.SRCJEXCDBG.B32;1 


\ 'x8, 'XB\<0><0><0> 
17694777 
P.A 


\Cylinders = 


Type = 


'UL, Tracks = 


\ UL, DevChar = 
17694779 


'XL\<0> 


-ADDRESS P.AAU 


DEVDEPEND 
DEVCHAR 
SYSSGETDVIW 
EXCHSDBG_CODE ,NOWRT,2 
EXCHSDBG_FAB_DEV_PRINT, Save R2,R3,R4,R5 


LIBSPUT_OBUTPOT, 
EXCHSUTTL_FAO_BUFFER, R4 
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—oOe fmt eH 


P, 
#2, EXCHSUTIL_FAO_BUFFER 
#1, LIBSPUT_OUTPUT 
#7. STATUS, ~RO 
#1, RO, STATUS 
STATUS2 
TUS 
#1, LIBSSIGNAL 


DEVNAMLEN, TMP DESC 
ee. TMP_DESC+4 


S 

INP_DESC 

#3, EXCHSUTIL_FAO_BUFFER 
#1, LIBSPUT_OUTPUT 


DEVTYPE 
DEVCLASS 


'UL, Sectors =\ 
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K 5 
EXCHSDBG Conditionally assembled debugging routines 16-Sep 0-138 9 43:36 AX-11 Bliss-32 V4.0-742 
v04-000 exch$dbg_fab_dev_print 14-Sep-1984 12:29: EXCHNG.SRCJEXCDBG.832;1 
4C rt DD 00 of PUSHL MAXBLOCK 
Fo OA BD 3 9 PUSHL DEVBUFSIZ 
0000' CF OF 94 PUSHAB P.AA 
64 05 8 00098 CALLS #5, EXCHSUTIL_FAO_BUFFER 
0 dD 00098 PUSHL RO 
65 01 FB BoD CALLS #1, LIBSPUT_OUTPUT 
FB OA pe py PUSHL DEV 
7E 6 A BRA MOVZBL DEP, =(SP) 
7E 01 A 3 00A6 MOVZBL DEP+1, -(SP) 
7E fi A C 4 4 MOVZWL DEP+2, -(SP) 
0000" CF 9F QOOA PUSHAB P.AAT 
64 95 FB 000B CALLS #5, EXCHSUTIL_FAO_BUFFER 
0 bd 0008 PUSHL 
65 01 FB 00087 CALLS #1, LIBSPUT_OUTPUT 
F8 A3 DD QOOBA PUSHL VCHAR 
OO000v CF 01 FB Q00BD CALLS #1, EXCHSDBG_UTL_PRINT_DEVCHAR 
50 01 00 BOCs MOVL #1, RO 
04 000C RET 
50 D4 000C6 2$: CLRL RO 
04 000C8 RET 
; Routine Size: 201 bytes, Routine Base: EXCHSDBG_CODE + 015C 
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SIMANIVSO LOWONINNNO—NN 


oo 
oo 


SOPFOOMOOOOMOMOOIT COOCONCO 
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So 


WWIAAAAAAANAAAIAIPOPINPONPONPNP 


PUTIN SO MMMMOO 


See 
om NOOWOOOLWLS SPWOOLlwgon 


7 2 |] 


=” a 


wv 


AAW: 
AAV: 
AAY: 


~AAX: 


ABA: 
AAZ: 


ABC: 


ABB: 


-PSECT EXCHSDBG_PLIT,NOWRT 
ASCII \ Dump of fab 
eLONG 17694743 
ADDRESS P.AAW 
ASCII \ '15AS 
ASCII \ file index 
«LONG 17694773 

. Ss A 


.AAY 
\F ABSW hbase shone 
1769472 


\<0><0 


!15AS 


eASCII \ \<o-<0> 
-LONG 17694762 
ADDRESS P.ABC 


se 
at 'XL:\<0> 


'XW 


><0> 


XL 


- internal\ 


- file options\ 


EXCHSDBG Conditionally assembled debugging routines bese Sep-1984 00:45: AX-11 Bliss-32 V4.0-74 

v04-000 exch$dbg. fab-d 10-88h-198e 19:38:65 FEXCHNG’SRETERE DOG. O30¢4 sp 

: ; 8 0 1 so ROUTINE exch$dbg_fab_dump (fab : $Sref_bblock) = %SBTTL ‘exch$dbg_fab_dump’ 

: 231 

: ¢ 8 : $dbgtrc_prefix ('fab_dump> '); 

3 ae serine: ate Rokr tee ws ie” ann block id ‘, SASCID 'FABSB BID’, .fabCFAB }) 

° . ee . i oc "F ao D 

i 936 O328 ¢ !  $print=tao (° 1154S 1x8 block len ', ZASCID 'FABSB BLN‘ jTaBLEABSG 6035 

: $3e 0340 gorint. feo |. i12A8 XW - internal fle, in dex ', ZASCID ‘FABSW_IFI’, , 3b FABSW_IFIJ 
: $35 08%) print tao : id2As ‘XL = file options | ‘. ZASCID ‘FABSL_FOP’, . fabLFABSL_FOP]); 

; 939 0 Sprint-tao (° '15AS XL = status’ |") HASCID, FABSL STS’. tapCFARSL S153); 

; $i9 O3e8 ; print tao (* 1 15AS +XL - status ya ue TASCID (FABSL_STV - fabl FABSL sry ); 

; Me 0334 : Sprintm feo te 1 13AS XL - sary ot on ey » %ASCID FABst ALQ', . faBlF $i ALQI); 

: stg O33¢ : zor int. — ts 1 15AS + Xd - default al ocatfon,g quent ASCID FABSW DEQ’; . fablFA 
s Str O32 gerint. ee ‘ 1 13AS ‘XB - file access ASCID Fapsé FAC : - fabCFABSB_FACJ) 

: ghd 0336 Sprint-tao (° i1bAS XB - file sharing paAscio FABSB_SHR , fabCFABSE _SHRJ); 

; 246 0338 Sprint feo (' 113AS iXL = user context ascid *FABSL CTX". fabtFABSL er 

> 547 0339 sor int. =fa0 te : 13AS ‘XB - file or shisetlon g ASCID FA A +8, os Gi f2bC# ans ORG) 
: 548 0340 3 Crintfao. (! i1eag XB - > Fecord, format 1 TASEID "EABSECREN'. LFSREFABSECRERT, 

: $36 d O8c2 $ nates sage’ aan oe Ie. ¥ sciAbea’ FASiCLe ‘ sbLFABSE “Fad, - fablfab$ > P 

: 251 P $303 2 $print_fao (' '15AS) ss !XB IXL : TAF’? ZAS 5 *detault ona witnatesnes:) epg iee mn, sage: 
: $38 b3ce 5 $print_fao (' '15AS ' Regrets BARS faNC fabs dnd EP ROSC peas | 
; 254 0346 2 gxch$dbq_u atl eprint. devchar (. tab ABs. DEVI); ? 
: $2? ttf § eprint, Tee Se _nam) NEG fe Ss - nam block address '‘', ZASCID 'FABSL_NAM', .fabCFABSL_NAM)); 

3 Ser 8 4 § THEN exch$dbg_nam_dump (.fabCfab$l_nam]); 

: 259 0351 2 RETURN 1; 

; 260 0352 1 END; 
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= status 


XL 


opr Oi ieee re oh etd 
EXCHNG.SRCJEXCDBG.832; 


\FABSL_FOP\<0><0><0> 
15690929 


-ADDRESS P. 
ASCII 


\ 


ASCII 
«LONG 


- status value\ 


XL 


4C 24 42 
4C 24 42 


dae 
wn 
o 
wv 


y assembled debugging routines 


dump 


exch$dbg_ fab 


00 00 00 50 4F 


Conditionall 
00 00 00 53 54 53 SF 


EXCHSDOBG 


v04-000 


OWVOTOTOR- OOS DVYVOVO4uwoorvw 
“€<MOOVVVOWww ur OOK KUM TT 


- file a\ 
- file s\ 
- file o\ 


- user context\ 


!XB 
'XB 
XL 
'XB 


'15AS 
'15AS 
B_SHR\<0><0><0> 
'15AS 
CTX\<0><0><0> 
'15AS 


729 


AB$B_FAC\<0><0><0> 
29 
\rganization \<0><0><0> 


ho. 


ADDRESS P.ABK 
17694 


ASCII 


4C 24 42 
42 24 42 
42 24 42 
4C 24 42 
42 24 42 


5F 


46 SF 


00 00 00 58 54 43 SF 
35 (31 


00 00 00 56 54 53 5F 
00 00 00 43 41 

00 00 00 52 48 53 5F 
00 00 00 47 52 4F 


$8 $3 53 41 
0 20 20 20 20 20 
00 00 20 20 6E 6F 


N sae 
EXCHSDBG Conditionally assemblec debugging routines 16-Sep 4 AX-11 Bliss-32 V4.0-7 Pp 14) ExC 
v04-000 exch$dbg_ fab’ dunp — 1278 Sep 138 99:38 £63 EXCHNG.SRCJEXCDBG. B32: = (5) v04 
0 20 53 41 1 0 0 00544 P.ACE: .ASCII \ '15AS 'xB - record\ ; 
$8 8 20 20 33 0 a 38 i 3 i \ 20 6 223 : 3 
64 gf § 6 2 3 D 6 : 
00 00 00 2 0 74 61 6D 6F 66 of oASCHI \_ forma 3 \<0><0><0> : 
4 £08 1 P.ACD 1769476 : 
0000000' aff SOD RESS P.ACE 3 
00 00 00 54 41 52 SF 42 246 42 41 $8 P.ACG SCII \FABSE RAT\<0><0><0> : 
Hh 000 5 P.ACF ONG 17694729 s 
20 20 53 41 35 31 21 20 2 0 20 20 . we i $33 P.ACI 3 te eames 115AS 'xB d\ : | 
5 ! ! - recor : 
20 20 20 20 20 20 20 20 ‘3 8 A 0 20 8 0 005A3 3 | 
Be ae a 65 72 9 D 8 BReee 3 
00 00 2 0 74 61 6D 6F 6 a «ASCII \_ format \<0><0><0> : 
01 £00 1 Beee P.ACH LONG 17694769 : 
00000000' beck «ADDRESS P.ACI $ | 
00 00 00 40 46 52 SF 42 246 42 41 46 B20 P.ACK ASCII \pAare RFM\<0><0><0> : 
010E0009 O0S5DC P.ACJ LONG 17694729 : 
00000000' Bpaee “ADDRESS P.ACK : 
20 20 53 41 35 31 21 20 20 20 20 20 8 sy Sp OSE4 P.ACM ASCII \ '15AS) ss XB EXL TAR ''\ 3 
41 21 22 20 20 20 20 4C 58 21 20 42 58 } ¢ Boh 3 
01560020 00604 P.ACL ONG 17694752 3 
009300 0° 00608 ADDRESS P.ACM 3 | 
65 6D 61 6E 65 6C 8 66 0060C P.ACO ASCII \filename\ 3 
010E0008 00614 P.ACN LONG 1769 : 
00000000° 00618 ADDRESS P.ACO 3 
20 20 53 41 35 31 21 20 20 20 20 20 20 0 $8 0061C P.ACQ: .ASCII \ '15AS) s 'XB XL UAR''N ; 
41 21 22 20 20 20 20 4C 58 21 20 42 58 } ¢ se 44 3 | 
01 0088 0063C P.ACP: .LONG ora 3 
009900 0" 00640 ADDRESS P.ACQ 3 
65 6D 61 6E€ 20 74 6C 75 61 66 65 64 00644 P.ACS: “ASCII \default name\ 3 
Q10E000C 00650 P.ACR: .LONG 17694732 3 
00000000' 00654 eADDRESS P.ACS : PF: 
20 20 53 41 35 31 21 20 20 20 20 20 20 $3 0 00658 P.ACU: .ASCII \ '15AS XL - device chara\ ; 
65 64 20 2D 20 20 20 20 4C 58 21 20 20 20 20 00667 3 
61 72 61 68 63 20 65 63 4 g 00676 F 
20 20 73 63 69 74 73 69 72 65 74 $ pond ASCII \cteristics \ 3 
010E0034 O0068C P.ACT: .LONG 17694772 3 
00000000" 00690 ADDRESS P.ACU ; 
00 00 00 56 45 44 SF 4C 24 42 41 46 00694 P.ACW ASCII \p ABD DEV\<0><0><0> 3 | 
O10 0008 BRA P.ACV: .LONG 17694729 3 
00000000° 006A4 ADDRESS P.ACW 2 
20 20 53 41 35 21 30 20 20 30 38 8 $8 06A8 P.ACY ASCII \ '15AS XL = nam block ad\ ; 
61 6€ 20 2D 20 20 20 20 4C 4 1 0687 3 
61 20 $8 65 6F $¢ oe 3 60 bece E 
00 20 20 73 6 4 600 ASCII inser? \<0> 3 
4434! F 0608 P.ACX: .LONG 1 Wt: 67 3 
00000000' 006D ADDRESS P 3 
00 00 00 4D 41 4E SF 4C 24 42 41 46 O06E0 P.ADA: .ASCII \FABSL NAM\<0><0><0> 3 
010E0009 OO6EC P.ACZ: .LONG 17694729 ; 
00000000' 006F0 ADDRESS P.ADA ; 
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: Routine Size: 


dD 6 
EXCHS$D Conditionally assembled debugging routines 16-Sep-1984 745: AX-11 Bliss-32 V4.0-742 
v04- exch$dbg. fab-name_print ett 107388- 1382 99:39:09 LEXCHNG. SRCTEXCDBG.B32:1 


; ° 8 iH 1 SL ORAL ROUTINE exch$dbg_fab_name_print (fabb : Sref_bblock) = %SBTTL ‘exch$dbg_fab_name_print' 
: 264 0355 

; o 0 2$ Sdbgtrc_prefix ('fab_name_print> '); 

; £8 0 2 LOCAL 

; 268 59 tmp_desc : $desc_block, ' A descriptor for the total file name 
; 269 0360 dev_desc : $desc_block, ! A descriptor for the device name 

; 270 0361 dir_desc : $desc_block, ' A Gescriptor for the directory name 
; si) $306 dvi_desc : $desc_block, ' A descriptor for the full device name 
; ie: 036 nam_desc : $desc_block, ! A descriptor for the name name 

. ae 8 64 nod_desc : $desc_block, ! A descriptor for the node name 

: 276 65 typ_desc : $desc_block, ' A descriptor for the type name 

3 Le tre: ver_desc : $desc_block; ! A descriptor for the version number 
; $79 0368 BIND 

3 $/8 334 nam = .fabb Cfab$l_nam] : Sbblock; ! Get pointer to the name block 

3; 280 0371 tmp_desc 0.0.3 -03 = dsc$k_class_s*24 OR dsc$k_dtype_t*16; ! Static desc 

; 281 berg dev_desc (0,0,32,0] = dsc$k_class_s*24 OR dsc$k_dtype_t°16; ! Static desc 

; see 037 dir_desc (0,0,32,0] = dsc$k_class_s*24 OR dsc$k_dtype_t*16; ! Static desc 

; 28 0374 dvi_desc (0,0,32,0] = dsc$k_class_s*24 OR dsc$k_dtype_t*16; ! Static desc 

; 6284 0375 nam_desc (0,0,32,0] = dsc$k_class_s*24 OR dsc$k_dtype_t*16; ! Static desc 

> «285 0376 nod_desc 6°0°35 63 = dsc$k_class_s*24 OR dsc$k_dtype_t*16; ! Static desc 

; $89 0377 typ_desc (0,0,32,.0] = dsc$k_class_s*24 OR dsc$k_dtype_t*16; ! Static desc 

; +14 tte § ver_desc (0,0,32,0] = dsc$k_class_s*24 OR dsc$k_dtype_t*16; ! Static desc 

> 289 0380 2 IF .fabb Cfab$b_fns] NEQ 0 

; 290 0381 THEN 

: 291 Bene BEGIN 

; eve 038 tmp_desc pdscéu. length? = .fabb Cfab$b_fns); ' Create file name desc 
; 293 0384 ; tmp desc [dsc$a_ pointer] = .fabb Cfab$l_fnal; , ao 

3 294 0385 Sprint. tao ("FAB filename ‘"!AS''', tmp_desc); 

; 295 0386 3 EN 

; 296 0387 § ELSE : 

ove 0388 Sprint_lit ("FAB filename ‘"' (null)"); 

; 298 0389 ¢ 

; +44 0390 IF NOT (.fabb Cfab$l_sts]) 

: 300 0391 2 THEN 

; 301 P S44 § Sprint_fao ("FABSL_STS = !XL FABSL_STV = !XL* 

i 308 039 .fabb Cfab$l_sts], .fabb Cfab$l_stvJ); 

; Hi 0394 

; 304 0395 IF nam EQL 0 

: 305 B328 THEN 

; 306 9 BEGIN | 

3; for 0398 ser int4 te ("No nam block"); 

; 308 0399 RETURN 1; 

; 309 0400 END; 

: 10 0401 

: 3511 040 IF .nam Cnam$b_esl] GTRU 0 

; \¢ 040 THEN 

. 0404 BEGIN : 

3 «6514 0405 tmp_desc pdscBu. length) = .nam pranépes| 3 ' Create file name desc 
3 $2 Be 0s tmp_desc [dsc$a_pointer] = .nam [nam$l_esal; t eee 

; 316 40 Sprint_teo ("Expanded string “!AS'"', tmp_desc); 

; $3 408 END 

; 4318 409 ELSE 


P.ADB: .LONG or 
«ADDRESS P 


3 

8 

C 

? 

8 P.ADD: .LONG eee 
f «ADDRESS P 
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6 
EXCHSDBG Conditionally assembled debugging routines 18. Sep-1984 00:45: AX-11 Bliss-3 
Vv04-000 exch$dbg_ fab nane _print —_ 14- ~3ep-19 4 99:58:68 EXCHNG.SRCJEX 
3 38 rh Sprint lit ("Expanded string ‘"’ (null)'); 
: 1 tig IF_.nam Cnam$b_rsl] GTRU 0 
3 ¢ rt ona 
3 4 415 ys y Be tase Sa- Length). = .nam (nam$b_rsl); ! Create file name desc 
3 5 pei$ tmp “desc Cdsc$a_pointer] = .nam nam$l_ rsa | eee 
3 6 041 per int.. fao ('ReSult string ‘‘!AS', tip_ desc); 
: 7 0418 
: 328 0419 7 
3 9 0420 dev_desc Cdsc$w_length]_ = .nam (nam$b dev); ' Create file name desc 
3 0 8 1 dev_desc (dsc$a_pointer] = .nam (nam$\“dev); t ses 
3 1 4 § dir_-desc [dsc$w_length]_ = .nam [nam$b-dir]; ' Create file name desc 
: $8 8 ? gir. desc [dsc$a_pointer] = .nam [nam$l “dirt: 1 wes 
; 334 0425 
; $32 0476 Len =_nam Cnam$t + RYTE: 
; $39 Bose inbe dvi_desc Cdsc$w_length) = .Len; ! Create file name desc 
; joe 0239 dvi_desc gscte mth + fe = nam Cnam$t_dvil+1; ! ... 
; 339 0430 nam_desc Cdsc$w_length]) = .nam (nam$B_namel; ! Create file name desc 
; 340 0431 nam_desc (dsc$a_pointer) = .nam Cnam$l-name]: | ... 
; (341 eh nod_desc Cdsc$w_length] = .nam [mam$b_node]; ! Create file name desc 
H se6 043 nod_desc [dsc$a_pointer] = .nam (nam$l"nodeJ; ! ... 
; 34 0434 typ_desc Cdsc$w_length]_ = .nam (nam$b_type); |! Create file name desc 
> 344 0435 typ_desc Cdsc$a_pointer] = .nam ([nam$l_typel; t wae ; 
; 345 0436 ver_desc Cdsc$w_length]_ = .nam [nam$b_ver]; ! Create file name desc 
3 348 et t4 § ver_desc Cdsc$a_pointer) = .nam (nam$l_ver); | wan 
; 348 P 0439 § Sprint_fao ("""!AS"' "IAS" "HAS" “HAS "HAS" “LAS "hast'*. 
; 349 0440 nod_desc, dev_desc, dir_desc, nam_desc, typ_desc ver_desc, dvi_desc); 
; 390 0441 2 
3s 39) 0442 2 RETURN 1; 
s Fae 0443 1 END; 


-PSECT EXCHSDBG_PLIT,NOWRT,2 
4 P.ADC: .ASCII \FAB filename ‘!AS''\<0><0> 


P.ADE: .ASCII \FAB filename ‘"' (null)\<0><0> 


P.ADG: .ASCII \FABSL aSTS = IXL 


6 P.ADK: .ASCII \Expanded string ‘!AS''\<0><0><0> 


Pete Se Se Se Se Se Se Be Se Se Se Se Be Se Se Se Se 


F 6 
EXCHSDBG Conditionally assembled debugging routines 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Pa 19 
v04-000 exch$dbg_ tab’ nane _print oe 14-$ et 99:58 63 EXCHNG. SRCJEXCDBG.B32; pe (6) | 
00 00 00 22 53 41 21 32 : 77F ; | 
08 go , u P.ADJ: LONG 17694741 : 
67 6€ 69 72 74 73 20 64 65 64 1? 4 790 P.ADM: .ASCII \Expanded string ‘"' (null) \<0><0><0> : 
88 60 00 08 oe ke 98 Be 8h 85 88 22.20 079 , ° : 
01 00 ZAC P.ADL: .LONG 17694745 : 
20 20 67 6E 69 72 74 73 20 7% 75 (73 °° " $780 P.ADO ACeha \Reen te tri "I AS'\<0><0><0> ; 
° 8 ° esu strin 3 g 
bo 00 60 53 88 lS 22 07¢3 . : 
01 £001 O7¢¢ P.ADN: .LONG 17694741 : 
41 21 20 22 41 21 20 41 ‘ - ¢ ip? P.ADQ MOTT TAS rast! “LAS “LAST “LAST “LAST “LAS\ 
20 22 8 41 $4 23 20 3 ¢¢ 41 5 22 20 22 Bre : 
41 21 22 20 é2 41 21 O7F2 : | 
00 00 be O7FC ASCII DS Cs a : 
010€00 0800 P.ADP: .LONG t705e 761 : 
00000000" 00804 “ADDRESS P.ADQ : 
.PSECT EXCHSDBG_CODE,NOWRT,2 
003c 00000 .ENTRY EXCHSDBG FAB NAME_PRINT, Save R2,R3,R4,R5  ; 0353. 
55 000000006 00 9€ 00002 MOVAB LIBS$PUT_OUT 5 ; | 
54 000000006 + 4 00009 MOVAB EXCHSUTIL. FAO BUFFER, R4 ; 
5E € C2 00010 SUBL2 #60, SP ae 
3¢ 04 AC DO 00013 MOVL  FABB, R2 + 0369) 
g 28 A2 DO 00017 MOVL  40(R2), R3 : 
34 AE 010E0000 8F DO 00018 MOVL #1769420, TMP_DESC > 0371) 
2c AE 010E0000 8F D0 0002 MOVL  #17694720, DEVDESC : 037¢ 
24 AE 010E0000 8F 00 900¢8 MOVL 17694720, DIRDESC : 037 
1C AE 010E0000 8F DO 000 MOVL #17694720, DVI~DESC : 0374 
14 AE 01060000 8F 00 00038 MOVL  #17694720. NAM~DESC : 0375 
OC AE 010E0000 8F 00 0004 MOVL  #17694720. NOD-DESC : 0376 
04 AE 010E0000 8F 00 00048 MCVL #17696720, TYP~DESC : 0377 
01060000 8F DD 0005 PUSHL #17694720 : 0378 
34 Ag 3 0059 STB. s- §2(R2) : 0380 
18 13 0005c a i$ ; 
38 = AE 34 Ag 9B 00055 MOVZBW 32(R2), TMP_DESC : 0383 
3c AE ec A2 DO 0006 VL 44(R2), TMPTDESC+4 + 0384 
8 AE 9F 00068 PUSHAB TMP _DESC : 0385 | 
0000" CF 9F 00068 PUSHAB P.ADB : 
64 08 FB O06F CALLS #2, EXCHSUTIL_FAO_BUFFER : | 
; DD 99 2 PUSHL RO : 
4 11 74 BRB 2$ F | 
0000" CF 9F 00076 1$: PUSHAB P.ADD > 0388 
65 01 FB OO7A 28: CALLS #1, LIB$PUT_OUTPUT ; 
10 08 Ag E 9070 BLBS B(R2), 3 : 0390 | 
7E 08 A2 7D 00081 mova (Re), =(SP) ; 0393 
0000' CF 9F 00085 PUSHAB P.ADF : | 
64 03 FB 00089 CALLS #3, EXCHSUTIL_FAO_BUFFER : 
50 DD 000 PUSHL RO ; 
65 1 FB 000 : CALLS #1, LIBSPUT_OUTPUT : 
3 p 91 3$: TST R3 : 0395. 
82 BNE 4$ : 
0000" CF 3 9 PUSHAB P.ADH > 0398 
00A5 31 00099 BRw 8$ ; 
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328 bytes, Routine Base: 


; Routine Size: 


H 6 
EXCHSOBG Conditionally assembled debugging routines 16-Sep ={3 4 
v04-000 ee dump. rtil_file — 14-Sep 2 99:38 63 
; 354 0444 1 GLOBAL ROUTINE exch$dbg_dump_rtll_file (filb : Sref_bblock) = 
3 5 445 BEGIN 
5 : rr | 
3 044 LOCAL 
; rs 448 buf : VECTOR (512, BYTE), 
: 9 449 pbn, 
: 360 0450 cnt, 
i.) Bees status; 
; 126 
3 6 045 EXTERNAL ROUTINE 
; 364 0454 exch$io_rtll_read; 
i Bee? 
; 66 456 BIND 
: 367 0457 bufw = buf : VECTOR (256, WORD] 
: 368 0458 ctx = filb b crilbs a_context] : Sret _bblock, 
: +4 R628 volb = filb Cfilb$a assoc _volb] : $fef_bblock; 
; a! Bees $dbgtrc_prefix ('dbg_dump_rti1_file> "); 
s SY ee $Sblock_check (2, .filb, filb, 414); 
3 74 0464 $Sblock_check (2, .volb, volb, 415); 
: 375 0465 2 $block=check (2, .ctx, rtiletx, 416); 
; 376 0466 Slogic_check (2, (.ctx pret ictxse. assoc _filb] EQL .filb), 106); 
3 44 Beer Slogic_check (2, (.ctx Ertiictx$a_assoc_volb] EQL -volb), 107): 
; 379 0469 pbn = .ctx ‘a rtlictx$l_start "aguas 
: 380 0470 cnt = .ctx Crtlictx$w blocks 
; 381 0471 § 
; 3 ger a blk FROM .pbn TO .pbn + .cnt - 1 
; 384 0474 5° BEGIN 
; 385 0475 
; 386 0476 4 IF NOT (status = exch$io_rtll_read (.volb, .blk, 1, buf)) 
s 387 0477 : THEN 
; 388 0478 $exch_signal_return (.status); 
: 389 0479 ; 
3 toy neey Sprint_fao ("> !XW Vbn (!XW Pbn)', .blk=.pbn, blk); 
: 332 048 ; a i FROM 0 TO 15 
; 048 
3 Sos 0484 4 BEGIN 
: 95 0485 4 REGISTER off, offw; 
: 396 0486 4 
; 397 Bs 7 & off = .i * 32; offw = .i * 16; 
: 398 488 4 
2 99 P 0489 4 $print_fao ("> , 1665 Xy) - 'XW = ‘lar 
: 400 P0490 4 .bufw C.offw + 15], .bufw C.offw + 141, 
; 401 P 0491 4 -bufw C.offw + 11], -bufw “of fw + 10], 
; 40 P 0492 4 -bufw C.offw + 7], ‘bufw C.offw + 6 ‘ 
: 40 P 0493 4 -bufw C.offw + 3 -bufw C.offw + 2], 
> 404 94 4 off, 32, buf C.off]); 
; 405 0495 4 
; 606 49 
; 607 49 
; 608 049 
; 4609 0499 — 1; 
: 4610 050 


AX-11 Oi ies -32 V4.0 


EXCHNG. SRO) EXCDBG. B32;1 


dent || 


ZSBTTL ‘exch$dbg_dump_rt11_file’ 


-~-+++ 


.bufw 
.bufw 
-bufw 
-bufw 


| 


-offw + 1 


.offw + 8 


-offw + 4 
.offwi, 


<m 
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Conditi Ll bled debuggi i 16-Sep-1984 245: AX-11 iss- 4.0-74 
n onally as gnb\ed ebugging routines 4 Sep 38 00:43:86 y x Bliss-32 v4.0 b> Page tod 


«PSECT EXCHSDBG_PLIT,NOWRT,2 


58 21 28 20 20 20 6E 62 56 7 9 1 0808 P.ADS: .ASCII \> !XW Vbn (!XW Pbn)\<0><0><0> : 69 
80 88 00 g 6E 35 8) 20 5 a8 : 74 
01 £0015 0 O P.ADR: .LONG 17694741 : 
20 20 29 57 58 35 28 3% 31 21 20 20 "30 ae OB 3 P.ADU ASE NS 165K) XW = HART\CO : 
. : . . ~ - aa . > P+ 
00 22 46 41 $f 22 20 3 0 9 8 A 5 08 : 
91 50018 tes P.ADT: .LONG 17694747 : 69 
0060000" 00848 “ADDRESS P.ADU : 74 
.EXTRN EXCH$IO_RT11_READ 
-EXTRN EXCHS$_BADLOGIC 
-PSECT EXCHSDBG_CODE,NOWRT,2 
OFFC 00000 -ENTRY EXCHSDBG_DUMP RTI FILE, Save R2,R3,R4,R5,- ; 0444 
5B 000000006 EF 9E 00002 MOVAB EXCHSUTIC_FAO_BUFFER, R11 : 
5A 000000006 00 9E 00009 MOVAB LIBSSTOP, : 
59 00000000G 1 8F D0 00010 MOVL  #EXCH$ BADLOGIC, R9 : 
58 00000000G EF 9E 00017 MOVAB EXCHSUTIL_BLOCK_CHECK, R8 3 
SE FEOD CE 9E 0001 MOV -512(SP), SP : 
53 04 AC 20 C1 0002 ADDL3 #32, FILB, R3 : 0458 
56 04 AC 1C C1 00028 ADDL 28, FILB, R6 > 0459 
52 O35B00FA 8F DO 000¢D MOVE #56295674, R2 + 0463. 
51 019E  8F 3C 000 MOVZ2WL #414, R1 : 
50 04 AC 00 00039 MOVL FILB, RO : 
68 16 0003D JSB EXCHSUTIL_BLOCK_CHECK : | 
52 041B00F3 BF bo 0003F MOVL #688785 97 Re > 0464 
51 O19F BF 3C 00046 MOVZWL #415, R1 ; 
50 66 00 90048 MOVL (R6)., RO : | 
68 16 O04E JSB EXCHSUTIL_BLOCK_CHECK ; 
54 63 DO 0005 MOVL (R3), R4 > 0465. 
52 008200F4 8F b0 00095 MOVL #8519924, R2 : 
51 01A0 BF 3C O005A MOVZ2WL #416, R1 ; | 
50 54 D0 0005F MOVL  R4, RO ; | 
68 16 00062 JSB EXCHSUTIL_BLOCK_CHECK : | 
04 AC 10 Ad D1 00064 CMPL 16(R4), FIL > 0466 | 
0B 13 00069 BEQL 1$ . 
7E 6A 8F 9A 0006B MOVZBL #106, -(SP) F 
1 DD 006 PUSHL #1 : 
9 DD 00071 PUSHL  R9 : 
6A 03 Fe 09073 CALLS #3, LIBSSTOP : 
6h 14 A& D1 00076 1S: CMPL g0iRd), (R6) : 0467 
08 13 0O07A EQL $ ; 
7E 68 8F 9A 0007C MOVZBL #107, -(SP) ; 
01 DD 00080 PUSHL #1 : 
59 DD 00082 PUSHL R9 : 
6A 03 FB 99 CALLS #3, LIBSSTOP F 
53 if A4 DO 00087 28: OVL 114(R4), PBN > 0469 
50 40 ad 3C 000 MOVZ2WL 64(R4), CNT : 0470 
55 FF AGS : OO8t OVAB. =-1(CNTSCPBNJ, R5 > 0472 
52 53 D0 00094 MOVL PBN, BLK 


ft 
EXCHSDBG Conditionally assembled debugging routines 1b-se -1984 745: AX-11 Bliss-32 V4.0-74 Page 23 
v04=000 cuchSdbo dump_reil tite eons 12-08-1382 99:53:69 YEXCHNG SRe EXCDBG.B32; ’ (33 
0085 31 00097 BRW SS F 
E DD 0009A 3$ PUSHL SP + 0476 
1 0D 0009C¢ PUSHL #1 : 
¢ DD 9 PUSHL BLK : 
DD OO0A PUSHL  (R6) : 
000000006 fF eS . A CALLS #4, EXCHSIO_RT11_READ : 
7 9 D A MOVL RO, STATUS : 
10 E8 OOOAC BLBS STATUS, 4$ : | 
54 7 DO OOOAF MOVL STATUS. TEMP + 0478. 
4 DD 0082 PUSHL TEMP : 
000000006 00 01 FB 0B4 CALLS #1, LIBSSIGNAL ; 
50 4 p 0088 MOVL TEMP, RO : | 
4 OO0BE RET ; 
52 Dp OOBF 4$: PUSH BLK + 0480. 
7E 52 § ¢ 00C1 SUBL3 PBN, BLK, =(SP) : 
0000" CF SF 000CS5 PUSHAB P, ; | 
93 FB 900¢9 CALLS #5. EXCHSUTIL_FAO_BUFFER ; | 
0 DD 000¢C PUSKL oR : 
000000006 00 gi FB OOCE CALLS #1, LIBSPUT_OUTPUT : 
4 D4 00D CLAL Ss + 0482 | 
50 54 05 78 00007 S$: ASH. #5, I, OFF ; 0487 
51 54 04 78 00008 SHL ssa. sd, OFF ; | 
6E40 9F OOODF PUSHAS BUF OFF ; 0494 
20 DD 900E¢ PUSHL : 
0 DD 000E4 PUSHL OFF ; | 
7E Oc AE41 3¢ BO0E6 MOVZWL BUFWCOFFW), -(SP) : 
7E 12 AE41 3C OOOEB MOVZ2WL BUFW+2 OFFud, =(SP) : 
7E 18 AE41 3C OO0FO MOVZ2WL BUFW+4COFFWJ. -(SP) ; 
7E 1E AEG1 3¢ 900F 5 MOVZWL BUFW+6COFFWIJ, -(SP) ; | 
7E 24 AE41 3C OOOFA MOVZ2WL BUFW+SCOFFWI, -(SP) ; 
7E eA AE41 3C OOOFF MOVZ2WL BUFW+IOCOFFWI, -(SP) : | 
7E 0 AE41 3C 00104 MOVZ2WL BUFW+I2COFFWJ, -(SP) F 
7E 36 AE41 3C 00109 MOVZ2WL BUFW+I4COFFWJ. -(SP) ; | 
7E C AES1 3¢ 00105 MOVZ2WL BUFW+16COFFW), -(SP) : 
7E 42 AE41 3C 0011 MOVZ2WL BUFW+18COFFW], -(SP) ; 
7E 48 AEG 3C 00118 MOVZ2WL  BUFW+ Q OFFW), -(SP) : | 
7E 4E AE41 3¢ 0011D MOVZ2WL BUFW+22COFFWJ, -(SP) : 
7E 54 AE41 3C 001 ; MOVZ2WL BUFW+24COFFW), -(SP) : 
7E SA AES1 3C 001 MOVZ2WL BUFW+26COFFWJ, -(SP) : 
7E 60 AES] 3 0012¢ MOVZ2WL BUFW+28COFFW], -(SP) : 
7E 66 AE41 3C 00131 MOVZWL BUFW+3OCOFFW), -(SP) ; 
0000" CF 9F 001 PUSHAB P.ADT ; 
68 14 FB 0013A CALLS #20, EXCHSUTIL_FAO_BUFFER : | 
50 DD 1 D PUSHL : 
000000006 00 g1 FB O13f CALLS #1, LIBSPUT_OUTPUT Pines! 
OF 54 D1 00148 CHL fg #15 | 
BA 1B 00148 BLEQU 5$ : 
2 D6 0014D INCL BLK > 0472 | 
55 D1 OO14F 68: CMPL BLK. R5 : 
03 1A 132 BGTRU 7$ : 
50 FPS? BO oO1e? 7S ore, t. RO 0499 | 
04 EY RET : 0500 | 
; Routine Size: 5347 bytes, Routine Base: EXCHS$DBG_CODE + O4CE 


SSS S—__a_aQQgNa eee . rc 


K 6 
Conditionally assembled debugging routines 16-Sep-1984 00:45: AX-11 Bliss-32 V4.0-742 
exch$dbg, dumo_rtii file ela: 1o-8 08-1382 90:33:85 FEXCHNG  SRe EXCD8G.832;1 


onally assembled debugging routines bse Sep-1 


EXCHSDBG Conditi 984 00:45: AX-11 Bliss-32 V4.0-742 Page 25 
v04-000 exch$dbg_nam_dump 14- ~300-1382 99353569 EXCHNG.SRCJEXCDBG.B32;1 BS 
H tig 0501 1 GLOBAL ROUTINE exch$dbg_nam_dump (nam : $ref_bblock) = %SBTTL ‘exch$dbg_nam_dump' 

; 41 288 BEGIN 

; 414 50 

: 415 504 $dbgtrc_prefix ('nam_dump> '); 

3 rR 0505 

s $6) 8206 ' 

; 418 050 i A macro to add successive ASCII items to a string buffer, and update the 

; 419 0508 : descriptor for the string. 

: 420 0509 

; 421 0510 MACRO 

; re Mm 0511 add_to_list (string) = 

; és M baie “BEGIN 

: 426 M 051 BIND desc = ZASCID ge © : S$BBLOCK; 

> 425 M 0514 CHSMOVE(. -descldsc$w, Length 

: 426 m0515 2 . descr sc$a “pointers. 

: 427 Mm 0516 2 + .ptrl 

: 428 m0517 2 prt = PotrlO] + eo ae length); 

; $63 0518 § 

; 430 0519 

> 431 0520 § LOCAL 

: 432 0521 buffer : VECTOR (255, BYTE), 

; 433 09¢e 2 ptr : VECTOR C2, LONG); 

> 434 0525 2 

3s <355 0524 2 $print_fao (° Dump of nam at !XL:", .nam); 

: 436 0525 2! $print_fao (' '15AS 'xB - block id *, ZASCID "NAM$B BID’, .nam{NAM$B_BIDJ); 

3; 437 0526 2! $print_fao (' '15AS 'xB - block Length *, ZASCID ' NAMSB BLN’, “pentee BLN]); 
; 438 052e7 2! $print fao (' '15AS 'XB - resultant string area size ', ZASCID BSS s) ~namCN 
3; 439 0528 2 $print_fao (' '15AS 'XB = name options ', ZASCID 'NAMSB_NOP’, DnamCNARSG N P)); 
: 440 i494 2 $print_fao (' '15AS 'XL - wild card context ‘, ZASCID "NAMSL_WCC', .mamCNAMSL “Weed: 
> 441 0530 2 ptr OJ = 0; 

; 44 0531 1]_= buf 

> 46 0952 . " neaCnensl._ enb) NEQ 0 

: 4446 053 THEN 

3 445 0534 BEGIN 

: 446 0535 3 IF .mamCNAM$V_EXP_VER) THEN add_to_Llist('xver '); 

; 447 0536 3 IF .mamCNAM$V_EXP_TYPE] THEN add_to_List('xtyp '); 

; 4468 0537 3 IF .mam(NAMSV_EXP NAME J THEN add_to_List('xnam '); 

3 449 0538 3 IF .mamCNAMSV_WILB_VER] THEN add_to_list(‘*ver '); 

: 450 0539 3 IF .mam(NAM$V_WILD_TYPE) THEN add_to_list('*typ '); 

; 451 0540 3 IF .mamCNAM$V_WILD_ NAME) THEN add_to_list('*nam '); 

3 $26 0541 3 IF .nam WATS V ENE BIR} THEN add_to_list(‘xdir '); 

; 45 B2e¢ 3 IF .mamLNAM$V_EXP_ DEV. THEN add_to_ List('xdev *); 

> 454 0543 3 IF .mamCNAMSV_WILBCARD) THEN add_to_List('##* '); 

: 455 0544 : IF .nmamC(NAM$V~SEARCH LIST) THEN add-to_Llist('schl '5; 

: 456 0545 IF .mamLNAM$V~CNCL_DEV THEN add_to_List(‘cncl '); 

3; 457 0546 IF .nam{NAM$V_ROOT 4\y THEN add_to_list(‘root "); 

: 458 0547 IF .namCNAMS$V_LOWVER THEN add_to_List(‘lowy "); 

3; 459 0548 IF .nam(NAM$SV_HIGHVER) THEN add_to_list(‘*hiv '); 

: 460 0549 IF .mamU(NAM$V_PPF J THEN add_to_Llist('ppf '); 

3: 461 0550 IF .mamCNAM$V_NODE) THEN add_to_list('nod '); 

F 462 0551 IF .mamCNAM$V~QUOTED) THEN add-to_List("quot '); 

; 46 3236 IF .mamCNAM$V_WILD DIR) THEN add_to_Llist('*dir '); 

: 464 0553 4 IF .mamCNAM$V_GRP_ABR) THEN BEGIN 

3; 465 0554 4 add_to_list('grpmem '); 

3; 466 0555 4 IF TnamCNAM$V_WILD_GRP] THEN add_to_list('*grp '); 

3: 467 0556 4 IF .mamCNAM$V_WILD-MBR) THEN add_to_List(**mbr '); 

: 468 0557 3 END; 


a ——_— ) 


EXCHSDBG Conditionally assembled debugging routines 1-56 p-1984 AXa11 Bliss~32 v4.0-742 Page 26 
v04- exch$dbg_nam_dump — 127388748 4 99°58 :§8 EXCHNG. SRC} EXCDBG.832;1 . BS | 
| 
; ¢$3 0359 a0" GTR 0 THEN ptrl0) = .ptr(0) = |; ! Remove final space | 
: 671 60 Sprint_tao (' 1150S 'XL = = _ name bits ciAS ZASCID *NAMS FNB', .mamCNAM$L_FN r); 
: 47 P 096) Sprint=fao (' As iyp KL saciintesa’eeagel fpanded. st of ee | 
3; 47 206 .nam[NAMSB_ESL snam esas.” S onCnenSb. esl], .nam{Cnam$l_esa]); | 
: 474 P 056 Sprint_fao (' '15ASIXB IXL TAF’ > ZASCID ° result String’ 
: 475 0564 _namCNAMSB_ RSLJ, nan NAM L RSA: -namEnam$b rslj, mCnam$l_rsa]); | 
; 476 0565 $print_fao (' '15AS "tac = device name’ TASCID  eNAMS f _BVI', namCRAM$T_ ‘pI; 
; 4677 P 0566 $print_ fao (' LAR! "tape “ae wine} tare’ *'t aa 
; 478 P 0567 -namCNAM$B_NODEJ, <namCNAMSL plOved. 
> 479 P 0568 -namCNAM$B_DEVJ, — ium 
; 480 P B26? -nam(NAM$B_DIRJ, .nam NARSL Di DIR 
; 481 P 0570 .nam wares WARE -namC(NAMSC_N 
>; 48 P 0571 namCNAM$ » enamCNAM$L— NAME 
; 48 0376 -nam CNAMSB_ VER], .namCNAMSL_VERJ); 
; 484 057 $print_fao (' !15AS 'XL - related file nam block addr ', %ASCID "NAMSL_RLF*, .mamCNAMSL__ 
; 485 0574 I a teas RLFJ NEQ 0 
: 486 0575 THEN exch$dbg_nam_dump (.mamCNAMSL_RLF J); 
: 487 0576 
; 488 0577 2 RETURN 1; 
; 489 0578 1 END; | 


-PSECT EXCHSDBG_PLIT,NOWRT,2 


6D 61 6€ 20 66 6F 20 70 6D 75 44 20 20 20 30 0084C P.ADW: .ASCII \ Dump of nam at !XL:\<0> : 
00 3A 4C 58 21 20 74 61 9 00858 F 
010E0017 00864 P.ADV: .LONG 17694743 : 
00000000" 00868 ADDRESS P.ADW : 
20 20 53 41 35 31 21 20 20 20 20 20 20 20 $ 0086C P.ADY: .ASCII \ '15AS 'xB - name o\ ; 
20 20 20 20 20 20 20 20 42 58 21 $0 $0 0 20 00878 3 
6F 20 65 6D 61 6€ 20 2D 20 20 OQ088A 3 
00 20 73 6E€ 6F 69 74 70 it -ASCII Ris acy \<0> 3 
QO10EOO02F O0089C P.ADX Ae ; 
00000000" 008A0 - ADDR ADY 3 
00 00 00 50 4F 4E SF 42 246 4D 41 4E O8A4 rth wish  hanee NOP\<0><0><0> : 
010E0009 00880 P.ADZ: .LONG 17694729 : 
ot at? 088 ADDRESS P.AEA 3 
20 20 53 41 35 31 21 20 20 20 $9 20 20 § so 08B8 P.AEC: .ASCII \ '15AS XL - wild card co\ ; 
69 77 20 2d 20 20 0 20 4C 58 21 20 20 20 20 O008C ; 
6F 63 20 64 72 61 63 2 6C 008D6 3 
00 20 20 74 78 6 4 6€ 0Q08E0 ASCII \ntext \<0> 3 
OOF OO EE O8E8 P.AEB: G 17694767 3 
0000000 OO8EC ADDRESS P.AEC : 
00 00 00 43 43 57 SF 4€ 246 4D 4! af eth P. AEE: I] \NAMSL WCC\<0><0><0> : 
OOF ORS BFC P.AED: .LONG 17694729 3 
000 0090" 0900 ADDRESS P.AEE 3 
00 00 00 20 72 65 76 7 0904 P.AEG: .ASCII \xver_\<0><0><0> 
BARE OOD? BaNk P.AEF: ONG 17694725 3 
09 009 * 0091 ADDRESS P.AEG : 
00 00 00 20 70 79 74 0914 P.AEI: .ASCII \xtyp \<0><0><0> : 
a 3444 bait P.AEH: .LONG 17694725 : 
00 009 * 00920 ADDRESS P.AEI ; 
00 00 00 20 6D 61 +3 0924 P.AEK: .ASCII \xnam \<0><0><0> 3 
01 5008 83 C P.AEJ: NG 17694725 ; 
00000000' 00950 “ADDRESS P.AEK 3 


ae 
1 


-0 
B32; 


AX-11 Oh lege 38 V4.0-7 
EXCHNG.SRCJEXCDBG.B32; 


t 


y assembled debugging routines 
_dump 


Conditionall 
exch$dbg_nam 


EXCHSOBG 
v04-000 


dt ed a ed ee ee ee ee ee oe ee oe ee oe es ee ee ee eee eee ee er eer eee eer er ere er eT er ere eo) ee ee ee ee ee ee ee ee 
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" 
~ 
rd 
2 
a 
€ 
© 
c 
t 


a 
=< 
A A A A A A A A A A A A A 
So oO o Oo a) So So So o oO Oo Oo oOo 
v Vv v Vv Vv Vv Vv v v Vv v v v ” 
A aA A A A A A A A A A A A 4 
So So So So Oo Oo So Oo Oo o o A o o wn 
v Vv v Vv v v Vv v v v v oOo v v - 
A A A A A A A A A A A v A A =e 
o So oO So o So So o oOo oO Oo =“ o oOo 
Vn Ve UV COUN vw ~w vw vw vw vw wT w w vw vw ~ vw vw 
wN 2M oN oN Ow NN 27M FN SON wD ~N ™N Nu 2M _ wT ew -Nu wT 
=z ~O RO he RD RSB BP RE RY Rh OS Re rR RE BROOKS KOH KD 
twwOowwEwrwtwz~wosrw Se rea era oT TT rt wr Eww Owu tru 
@O.< +O < OO a Oc OO Ce Ogcecod vO dt OO dc BO a OO a+ OB UC ge OO a Og aod iodcooad 
>O +O -CO *OO 900 #0 2-00 CO -0°0 O00 OO a0 -00 +30 O00 tO OO -EO - 
#rO¢hO eh 0 KPO KPO eh OF 0 OPO CR O—P.0 CR.0 OPO CR.0 OF<- 0 ¢€h.0 OF<- 4 ¢h04 «ha 
th ee th el tl ee th ee ee ed ed 
” Ww wn ” WY ” nn “” ” nn ” ” ” ” ” ” ”" ” 
” ” ” ” ” ” ” ” ” ” ” ” ” ”) “” ”" ” ” 
— wer wesw We te te le le wesw Wie we wen We We le Oe le Oe ll 
Lemh-d* Seed 1 * Sonh 1: Sel ST: eT. aT. aT aT. ay. ay ay ay ae ay ay. ay ay ae 
VZQVZQVYVZOY ZV ZOVYZOAY ZQVYVZOAVYVZAVZOAVYV ZOVY ZOAVY ZOVY ZOAV ZOV ZO ZOovZow 
NOQMO QMO QMO QVBYVO QMO AMVO AVON AViV QMO AM VOaMWmoanNnoanoanNnoanNnoanvNoavNModan 
Steff E0090 0 6 0 Ee 0 Eo 0 HE 0 6 ff 0 i fh ff Cf CE KEK 
* e eo 8 se 


Zs O2 cao we S- B> x €N CM WO GE HE US £5 62 Ga He SK 
Ww Wa Wl a ea el Oh lh lh, ll ll 
“a €a4 €4 €4¢ €ae «@€aet «eet eae «eat eat eat eat ada aa aa aa eat aca 

. o a . . . cm e . eo . . - a . Be a . o - . . . 3 . 2 a . . 
aa aaaaeaaaaaaaaaaaaeaaaaaaaaaaaaaa aa aa 


— 


- - = - = = - = = - = ad >= = - = = = 
INS LENO LNODMNODDONDG LT OMNMIMNODNUNGVNOOT OOF OWTO-NOINOP-F-O4MNOENOOCOA 
NOONSOONSOS-SOr-SGONMSOR-SOOSSr-SGOWOSSVOOOR. COVSOR- COMOSOOOONMOONMOONWNO 

oo oo So So So So So SO Soo So Coo Coo Sco Sco So So So SO 


ge gt OO Ea gt ge AL 


00 00 00 20 72 65 
00 00 00 20 70 79 
00 00 00 20 6D 61 
00 00 00 20 72 69 
00 00 00 20 76 65 
00 320 00 20 6C 68 
00 00 00 20 6C 63 
00 00 00 20 74 6F 
00 00 00 20 76 77 
00 00 00 26 74 6F 
00 00 00 20 72 69 
00 20 6D 65 6D 70 
00 00 00 20 70 72 
00 00 00 20 72 62 


00 


Conditionally assembled debugging routines 
exch$dbg_nam_dump 


 oybe 0088 GOATS ary 
B0060080" QOAr4 
SF 4C 24 4D 4 $5 A78 P.AFY: 
4 6° ABS P.AFX: 
0 2 ; ° A C P.AGA 
3 33 3 88 5 h 
2.4 AAA 
4 00 pane P.AFZ: 
0000000" QOAB 
64 6& 61 70 an P.AGC: 
0 AC 
01 98 F QOAC4 P.AGB: 
0 20 2 ~ He Sate P.AGE 
3} 80 £2 $8 $2 $0 Soaps 
2 38 QAEA 
010E002 OAEC P.AGD: 
sat te * QOAFO 
7% 6C 75 «73 ~«65 OAF4 P.AGG: 
Q 0803 
Q10E000D Q0B04 P.AGF: 
00000000" 00808 
20 20 $9 $8 0 $0 OBOC P.AGI: 
21 22 0 20 20 ay 
20 65 63 69 76 65 eh 
Q10E0028 00B34 P.AGH: 
00000000' tte 
SF 54 24 4D 41 4E 008 f P.AGK: 
B49 00B48 P.AGJ: 
00000000" popes 
20 20 20 20 20 20 Q0B50 P.AGM: 
22 20 $f 46 41 21 OQOBSF 
46 41 21 § 20 22 page 
00 46 41 0087 
BARE OO ee Boek P.AGL: 
0000000" 00880 
¢0 $9 $8 0 20 sp tte P.AGO: 
8 2] ? 0 20 20 00893 
20 64 6 4 61 6C OQOBA2 
62 68 6D 61 oF OBAC 
0 00 00 OBB 
4 £08 BCO P.AG 
0 * QOBC4 
SF 4C 24 4D 41 r+} OBC8 P.AGQ 
ah 444 OBD4 P.AGP 
0000000" 00BD8 
DESC= 
DESC= 
DESC= 
DESC= 
DESC= 
DESC= 
DESC= 
DESC= 


18-Sep-1984 99:33:68 


14-Sep-1984 


re Oi lege se V4.0-74 
EXCHNG. SRC JEXCDBG.B32; 


ASCII \AS''\<O> 
«LONG 17694763 


»ADDRESS P.AFW 
ASCII AWARE FNB\<0><0><0> 
LONG 17694729 
«ADDRESS P 
SCII \ '15AS 'XB !XL "TAF''\ 
«LONG 17694752 
«ADDRESS P.A : 
ASCII \expanded string\<0> 
-LONG 17694735 
eADDRESS P. 
ASCII '15AS  'XB IXL TAF''\ 


«LONG 17694752 
-ADDRESS P.A 
-ASCII \resuit string\<0><0><0> 
«LONG 17694733 
«ADDRESS P.AGG 
ASCII \ 


'15AS "tAC’’ = device name\ 


-LONG. 17694760 
"ASCII \NAM$T_DVI\<0><0><0> 
17694729 
“tag "LAF “aR "as" "rar" dah, 
Tho \AF*'\<0> 
'15AS XL - related file\ 


eASCII \ mam block addr \<0><0><0> 
eine 17694777 


-ADDR AG 

ASCII nce RLF \<0><0><0> 
«LONG 17694729 

«ADDRESS P.AGQ 


vuvvVvvUU 
> 
m 
rc 
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wef 


y assembled debugging routines 


_nam_dump 


Conditionall 
exch$dbg 


EXCHSDBG 
v04-000 


>x<n@MourosiZzace 
ele eee ee ee 
qqaqqadcadaaaeeaet 


aaaaaaqaaaaaaa 


WWW 
SQGGGQG000000R 


-PSECT EXCHSDBG_CODE ,NOWRT,2 
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Conditionally assembled debugging routines 16-Sep-1984 745: AX-11 Bliss=-32 V4.0-742 Page 30 
exch$dbg_nam- dump vache 12280 8=1 384 99359:68 LEXCHNG SRE EXCDBG.B32;1 " Bs 
1 67 02 €1 BA 3$: BBC #2, (R7), 4$ : 0537) 
5 94 A 6— C1 5 ADDL3 PTR, PTR+4, RO : 
6 4 ; 30 AS 28 0009 MOVC3 DESC, aDESC+4, (RO) : 
A g 99 MOVZWL DESC, RO : | 
6 50 ¢ 090 ADDL2 RO, PTR : | 
12 é 03 £1 OO00A0 4$ BBC #3. (R7), 5$ + 0538) 
5 04 A of 1 O00A4 ADDL3 PTR, PTR+4, RO : 
60 4 : 30 AS 28 OOA9 MOVC3 DESC, aDESC+4, (RO) : 
0 0 As ¢ OAF MOVZWL DESC, RO : 
6 50 (CO 00083 ADDL2 , PTR : 
1 6 04 €1 00086 5$ BBC #4. (R7), 6$ + 0539) 
5 06 =A 6f 1 OOBA ADDL TR, PTR+4, RO : 
6 44 8B 40 AS 28 OO0BF MOVC3 DESC, aDESC+4, (RO) : 
50 40 A& 3¢ 000C5 MOVZWL DESC, RO ; 
6 50 CO 0009 ADDL2. RO, PTR ; 
1 6 05 €1 O00CC 6S: BBC #5. (R7), 7$ + 0540 
50 04 AE of 1 0000 ADDL3 PTR, PTR+4, RO : | 
0 54 BS 50 AS 28 0000 MOVC3 DESC, aDESC+4, (RO) : 
50 50 a8 3C 000DB MOVZWL DESC, RO : | 
6 50 CO 000DF DDL2 RO, PTR : 
t 06 £1 O000E2 7$ BBC #6. (R7), 8S > 0541 
50 04 AE 6— C1 O00E6 ADDL3 PTR, PTR+4, RO : 
64 BS 60 AS 28 OO0EB MOVC3 DESC, aDESC+4, (RO) ; 
50 60 A8 3C 000F1 MOVZWL DESC, RO ; 
6E 50 £6 000F5 ADDL2. RO, PT : 
67 95 O000F8 8$: TSTB (R?) + 0542) 
12 18 OOOFA BGEQ 9% 3 | 
50 04 AE 6E C1 OOOFC ADDL3 PTR, PTR+4, RO : 
60 74 B68 70 AS 28 00101 MOVC3 DESC, aDESC+4, (RO) : 
50 70 a8 3C 00107 MOVZWL DESC, RO : 
6f 50 CO 00108 DDL2 RO, PTR : | 
1 01 A7 €9 OO10E 9$ LBC 1(R7), 10$ > 0543. 
50 04 AE 6— C1 0011 ADDL3 PTR, PTR+4, RO : 
60 0080 08 7¢ as <8 0011 OVC3 DESC, aDESC+4, (RO) : 
50 7¢ «(AB OSC O11 MOVZWL DESC, RO : 
6E 50 CO 0012 ADDL2 PTR ; | 
15 67 0B £1 00125 108 BC wii, (R7), 118 > 0544 | 
50 04 AE of €1 00129 ADDL3 PTR. PTR+4, RO ; 
60 0090 08 oosc  C ¢8 0012€ OVCS DESC, aDESC+4, (RO) ; | 
50 008¢ ¢8 3C 001 MOVZWL DESC, RO : 
6 50 (0 00138 ADDL2 RO, PTR : 1 
15 é Oc £1 01 11$: BBC #12, (R7), 128 : 0545 | 1 
50 04 AE 6E C1 0014 ADDL3 PTR, PTR+4, RO : | 1 
60 00A0 D8 9o9¢ C ¢8 0014 MOVC3 DESC, aDESC+4, (RO) : | 
09C ¢8 3¢ O014F MOVZWL DESC. RO : | 
6 50 CO 00154 DDL2 RO, PTR ; 
15 6 0D £1 00157 128: BBC wis, (R7), 13$ > 0546 | 1 
50 04 AE 6— C1 001 ADDL3 PTR. PTR+e4, RO : | 1 
60 0080 08 OOAC CB 28 O16 MOVC3 DESC, aDESC+4, (RO) : | 1 
50 OOAC C 001 MOVZWL DESC, RO : 1 
6 0 CO 160 ADDL2 RO, PTR : 1 
15 6 — €1 00170 13$: BBC Wid, (R7), 148 > 0547 | 1 
50 06 =A 6E C1 00174 ADDL PTR. PTR+4, RO ; 1 
60 00C0 p ooBc C8 28 00179 MOVC3 DESC, aDESC+4, (RO) : 1 
OBC ¢ 181 MOVZ2WL DESC, RO ; 1 
bE CO 001 ADDL2. RO, P ; | 1 
67 B85 00189 148: STW ? ; 0548 | 
1 
1 
eee — es ee a = ™ teed 
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EXCHSDBG Conditionally assembled debugging routines ib-se -1984 00:45: AX-11 Bliss-32 V4.0-742 Page 31 
v04- exch$dbg_nam_dump ails 1228e 871382 99°39:68 LEXCHNG. SRE EXCDBG.B32;1 . (a) 
15 18 00188 BGEQ 15$ ; 
50 06 =A 6— ¢1 001 p ADDL3 PTR, PTR+4, RO : 
6 00cc p 0c C8 28 001 MOVCS DESC, aDESC+4, (RO) : 
C ¢ 19A MOVZWL DESC RO : 
6 C 19F ADDL2 RO, PTR : | 
1 02 A7 CE 1A2 15$: BLBC_ 2(R7), 16$ + 0549 
50 06 A 6E C1 0016 ADDL3 PTR, PTR+4, RO : | 
60 00D8 p 0D4 CB 28 OO1A MOVC3 DESC, aDESC+4, (RO) : | 
0D4 ; ¢ 1B MOVZWL DESC RO : 
6 0 ¢ O18 ADDL2 RO, PTR : | 
15 6 11 €1 001BB 16$: BC #i?, (R7), 178 : 0550. 
50 06 A 6— (1 O1BF ADDL3 PTR. PTR+4, RO : | 
60 00E4 OD 00EO CB 28 001C4 MOVCS DESC, aDESC+4, (RO) : | 
50 00E0 ¢ C 001CC MOVZWL DESC. RO : | 
6 0 (CO 00101 ADDL2 ; | 
15 6 12 €1 00104 178 BBC #18, (R7), 18$ ; 0551 
50 06 =A of C1 90108 ADDL3 PTR, PTR+4, RO : 
60 00F4 =p QOFO CB ¢8 001DD movC3 DESC, adESC+4, (RO) : | 
0 00FO C8 C OO1ES MOVZWL DESC, RO : | 
6 0 CO OO1EA ADDL2 RO, PTR : | 
15 6 14 €1 OO1ED 188: BBC #26, (R7), 19$ ; 0552 | 
50 04 AE 6 C1 OOiF ADDL PTR, PTR+4, RO : 
60 0106 08 0100 ¢ ¢8 O1F6 MOVC3 DESC, @DESC+4, (RO) ; 
50 0100 ¢& 3C¢ OO1rE MOVZWL DESC, RO ; 
6 30 CO 0020 ADDL2 RO, PTR : 
47 ‘ 13 £1 00206 19$: BBC #19, (R7), 21$ : 0553) 
50 04 AE 6f C1 O020A ADDL3 PTR +4, RO ; 0554 | 
60 0114 «~»8 0110 ¢ ¢8 0020F MOVC3 DESC, aDESC+4, (RO) : 
50 0110 ¢8 3C 00217 MOVZWL DESC : 
6E 50 CO 00 1C DDL2 RO, PTR : 
15 03 AZ €9 OO2TF BLBC 3(R7), 20$ + 0555 
50 04 AE 6E C1 00223 ADDL3 PTR, PTR+4, RO : 
60 0124 08 0120 C8 3 00228 MOVC3 DESC, aDESC+4, (RO) : 
50 0120 C8 3C 00230 MOVZWL DESC, RO : 
6E 50 CO 00235 ADDL2 RO, PTR : 
15 67 19 £1 02 8 20$: BBC #25, (R7), 21$ : 0556 
50 04 AE 6E C1 0023C ADDL 3 PTR, PTR+4, RO ; 
60 0134 8 0130 «C8 <8 00241 MOVCS DESC, aDESC+4, (RC) : 
50 0130 CB 3C 00249 MOVZWL DESC, RO : 
6E 50 CO 0024 ADDL2 RO, PTR : 
6 DS 00251 21$: TSTL PTR : 0558 
02 15 00 33 BLEQ 22$ ; 
6E 07 00255 DECL PTR : 
3E DD 6 7 22$:  PUSHL SP : 0560 | 
é BD 9 PUSHL (R7) : 
0178 C8 F 0025B PUSHAB P.AFX : 
0164 (¢8 OF 0 5F PUSHAB  P.AFV ; | 
69 04 FB 00263 CALLS #4, EXCHSUTIL_FAO_BUFFER : | 
50 DD 0 66 PUSHL RO : | 
6A 01 FB CALLS #1, LIBS$PUT_OUTPUT ; | 
0c Ab pp 0268 PUSHL  12(R6) ; 0562 | 
7E 0B A6 9A 00 é MOVZBL 11(R6), (SP) : 
C Ad DD 00 PUSHL 12(R6) : 
7E A6 9A 0027 MOVZBL 11(R6), -(SP) : 
O18 C8 OF 0027 USHAB P.AGB : | 
1A0 «C8_)sOOF: «00270 PUSHAB  P.AFZ : | 
69 06 FB 00281 CALLS #6, EXCHSUTIL_FAO_BUFFER ; 
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7 
assembled debugging routines 18-5¢ -1984 00:45: AX-11 Bliss-32 V4.0-74 
od eains 12-8e8=13Re 99:53:68 = HENAN Othe Sede DMG bss, 


ZSBTTL ‘exch$dbg_utl_print_devchar' 


_print_devchar 


oo ROUTINE exch$dbg_utl_print_devchar (dev : Sbblock) = 


-Sep- 


$dbgtrc_prefix ("dbg_utl_print_devchar> '); 
$trace_print_fao (‘characteristics longword !XL', .dev (0,0,32,0)); 


If .dev Cdev$v_rec] 
THEN 


Sprint_lit (' 
IF .dev Cdev$v_cclJ 
THEN 


Sprint_lit (' 
if -dev Cdev$v_trm] 


N 
Sprint lit (' 

IF .dev Cdev$v_dirJ 

THEN 


Sprint_lit (' 
IF .dev Cdev$v_sdiJ 
THEN 

$Sprint_lit (' 
IF -dev Cdev$v_sqd) 


HEN 

Sprint_lit (' 
IF .dev Cdev$v_splJ 
THEN 


Sprint_lit (' 
If .dev Cdev$v_oprJ 
THE 


N 

Sprint_lit (' 
IF .dev Cdev$v_rct) 
THEN 


Sprint_lit (' 
IF .dev Cdev$v_net] 
THEN 


Sprint_lit (' 
if -dev Cdev$v_fod] 


HEN 

Sprint_lit (' 
If .dev Cdev$v_dua] 
THEN 


$print_lit (' 
IF .dev Cdev$v_shrJ 
THEN 


$print_lit (' 
if -dev Cdev$v_gen] 


HEN 

$print_lit (' 
If .dev Cdev$v_avl) 
THEN 


Sprint_lit (' 
OE a Cdev$v_mnt] 


HEN 
Sprint_lit (° 
if -dev Cdev$v_mbx] 


HEN 
Sprint_lit (' 


rec 
ccl 
trm 
dir 
sdi 
sqd 
spl 
opr 
ret 
net 
fod 
dua 
shr 
gen 
avl 
mnt 


mbx 


device is record oriented'); 
carriage control device’); 

device is a terminal'); 

device is directory structured’); 


device is single directory structured'); 


sequential block-oriented device (i.e., magtape)'); 


device being spooled"); 


device is an operator'); 


disk contains rct (dec standard 166 disk)'); 


network device’); 


files-oriented device (i.e., disk and mt)'); 


device is dual ported'); 
device shareable’); 

device is a generic device’); 
device available for use’); 
device is mounted"); 


device is a mailbox"); 


POPOPORSPOPoPORUPOPOPONPONPOPIPIPINIPINININIPNINININN PNP fPonononn 


PAEAEXREMAMAAAMNI SII 


PE Ee A ir eter oy 
Wwr—c SBNS ARAN OSH WAAR oS Ooo A RU) Ooo 


SNA O 


rab ab ab Abedb abesbeab abeal al al ales! 
OOwOeo IN NANN 


69 20 
74 «66€ 


5 67 
5 63 


69 20 
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v04 
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Conditionally assembled debugging routines 
exch$dbg_utl_print_devchar 


o 
va 


OoOoooooooooo 

PAAAAAAAAAAO 
PAA MNGANYI VIII 
—OODNOUSWN "OOo 


Oo 
o 


If .dev Cdev$v_dmt) 
THEN 


Sprint_lit (' 
IF .dev Cdev$v_elg] 
THEN 

Sprint lit (' 
IF .dev Cdev$v_allJ 
THEN 

Sprint_lit (' 
IF .dev Cdev$v_for] 
THEN 


Sprint_lit (' 
IF .dev Cdev$v_swiJ 
THEN 


Sprint_lit (' 
IF .dev Cdev$v_idv] 
THEN 


Sprint_lit (' 
IF .dev Cdev$v_odv) 
THE 


N 

Sprint_lit (' 
IF .dev Cdev$v_rnd) 
THEN 


Sprint_lit (' 
IF .dev Cdev$v_rtm] 
THEN 


Sprint_lit (' 
cae Cdev$v_rck] 


N 
cortes lit ¢' 


IF -dev Cdév$v_wek] 


N 
Sprint_lit (¢' 


RETURN 1; 
END; 


dmt 
elg 
all 
for 
swl 
idv 
odv 
rnd 
rtm 
rck 


wek 


device 


device 


device 


device 


device 


device 


device 


device 


device 


device 


device 


H 7 
Je~senn 1386 
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13:35 


68 


AX-11 Bliss-32 V4.0-74 
EXCHNG. SRC JEXCDBG.B3¢; 


marked for dismount'); 


has error logging enabled’); 


is allocated’); 


is mounted foreign (i.e., non-file structured)'); 


is software write locked'); 


capable of providing input"); 


capable of providing output"); 


allows random access"); 


is realtime in nature'); 


has read checking enabled’); 


has write checking enabled'); 


»PSECT 
ASCII 


- LONG 


ASCII 
- LONG 
A 

ASCII 
- LONG 


EXCHSDBG_PLIT,NOWRT,2 
<9>\rec - device is record oriented\ 
17694752 


-AGS 
<9>\ccl = carriage control device\<0> 


Fo 
, 17694750 


<9>\trm - device is a terminal\<0> 
17694747 


4 : 
of -ADDRESS P.AGW 
5 : 


ASCII 


008 
008 
B38 
0B : 
ocee -ADDRESS P 
0C04 P.AGU: .ASCII 
OC 
C 
C 
C 
C 
C 
C 
C 
be 
C 


<9>\dir - device is directory structur\ 


Page 34 
. (9) 


Wwrorrnrnrrn 


WAWNANANNWww 


Ww 


AAAI AAI AAAI OANA OOO 


7 
b-Se0-1986 00:45:26 


Conditionally assembled debugging routines 


AX-11 Bliss-32 V4.0-74 
exch$dbg_utl_print_devchar t ¢ ; 


7 
EXCHNG.SRCJEXCDBG.B32; 


79 72 OF 74 63 65 3 


00 8 ASCII \9q\<02<0><0> 
9} 98 P.AGX: .LONG 17694757 
69 76 65 64 20 2D 20 69 64 09 ‘ : P.AHA tO RE SS OSM edi device i ingle di \ 
. ‘ sdi - device is single directory s 
go oe 50 8S be Oe gE 89 r3 ; ° 
64 65 72 75 7% 3 oF oh ASCII \erye sured. 
oi8 Opes P.AGZ: .LONG 17694764 
of 00 4 ADDRESS P.AHA 
66 4} ta oF P.AHC eASCII <9>\sqd - sequential block-oriented de\ 
64 29 64 §? 
65 63 69 76 ASCII \wice (i.e., magtape)\<0> 
65 70 61 74 Q 
010€0037 0 P.AHB: .LONG 17694775 
ts a ADDRESS P.AH 
6c ? 63 0? P.AHE: .ASCII <9>\spl = device being spooled\<0> 
010E0018 8 P.AHD: .LONG 17694747 
00000000' ADDRESS P.AHE f 
72 70 6F 4 0 P.AHG: .ASCII <9>\opr = device is an operator\ 
6— 61 20 73 QO 
Q10EO0IC 0 P.AHF: .LONG 17694748 
00000000' 0 ADDRESS P.AHG ; 
74 63 72 O09 O P.AHI: .ASCII <9>\rct = disk contains rct (dec stand\ 
6— 69 61 74 0 
6— 61 74 73 O 
20 64 72 61 O ASCII \ard 166 disk)\ 
010E0030 8 P.AHH: .LONG 17694768 
00000000' ADDRESS P.AHI 
74 «665 of 09 0 P.AHK: .ASCII <9>\net - network device\<0><0><0> 
69 76 65 64 QO 
010E0015 0 P.AHJ: .LONG 17694741 
00000000° 0 ADDRESS P.AHK 
64 6F 66 09 8 P.AHM: .ASCII <9>\fod =- files-oriented device (i.e.,\ 
74 6€ 65 69 
of 65 2— 69 0 
69 2 $0 8 ASCII \ disk and mt)\ 
010E0030 F.AHL: .LONG 17694768 
00000000" ADDRESS P.AHM ; ; 
$1 G 20 9 "c P.AHO: .ASCII <9>\dua - device is dual ported\ 
010E001C P.AHN: .LONG 17694748 
a oe ADDRESS P.AHO ; 
qe $8 0 P.AHQ: .ASCII <9>\shr = device shareable\<0> 
6 gl 98 
4 001 P.AHP: .LONG 17694743 
0000000' ADDRESS P.AHQ itty 2 5; 
oF 65 § 9 P.AHS: .ASCII <9>\gen - device is a generic device\<0> 
8 
0 65 
0 0 ASCII rey ¢3 
4 £0021 P.AHR: .LONG 17694753 
0000000' ADDRESS P.AH : ; 
6C 76 61 09 P.AHU: .ASCII <9>\avl - device available for use\<0> 


#8 
00 
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73. 75 20 72 
69 20 65 63 
69 20 65 


6D 20 65 63 
6F 6D 73 


Conditionally assembled debugging routines 
exch$dbg_utl_print_devchar 
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20 


65 6C 62 61 


es fe be 98 


64 2 
6C 6 


64 20 $p 20 
6F 66 
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6F 6 
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7 
hte =1984 745: AX-11 Bliss-32 V4.0-742 
27800-1382 99:5 ‘68 YEXCHNG SRe EXCOBG.B32;1 
P.AHT: .LONG 17694751 
ADDRESS P.AH 
P.AHW: .ASCII <9>\mnt - device is mounted\ 
P.AHV: .LONG 17694744 
ADDRESS P.AHW 
P.AHY eASCII <9>\mbx - device is a mailbox\<0><0> 
P.AHX: .LONG 17694746 
ADDRESS P.AHY 
P.AIA: .ASCII <9>\dmt - device marked for dismount\<0> 
eASCII <0><0> 
P.AHZ: .LONG 17694753 
-ADDRESS P.AI 
P.AIC: .ASCII <9>\elg - device has error logging ena\ 
eASCII \bled\<0> 
P.AIB: .LONG 17694759 
ADDRESS P.AIC 
P.AIE -ASCII <9>\all = device is allocated\<0><0> 
P.AID: .LONG 17694746 
ADDRESS P.AIE ’ 
P.AIG: .ASCII <9>\for - device is mounted foreign (i\ 
-ASCII \.e., non-file structured) \ 
P.AIF -LONG 17694780 
ADDRESS P.AIG 
P.AII eASCII <9>\swl - device is software write loc\ 
ASCII \hed\<0a<0> 
AIH: .LONG 17694758 
ADDRESS P.AII . a 
eAIK: .ASCII <9>\idv - device capable of providing \ 
eASCII \input\ 
Ald: .LONG 17694760 
ADDRESS P.AIK } 
eAIM: ASCII <9>\odv - device capable of providing \ 
ASCII Yeuspus \<0><0><0> 
P.AIL: att 17694761 
P.AIO: <ASCII <9>\rnd = device allows random access\<0> 


<0> 


rome 


Pe Ree Re Se Se Se SHOE Se Se Bee Se Se Se Se SH Se Se Se Be Se Se Se Se Se Se Se Be Se Be Se Se Se Se Se Se Se Se Se Se Se Fe Ge Se Se Se Se Fe Se Se Ge Se Se Be Se 
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EXCHSDBG Conditionally assembled debugging routines 16-Sep-1984 745; AX-11 Bliss-32 V4.0-74 c 7 
v04-000 exch$dbg_utl print devchar woh Paes 1278687138 99:39:68 LEXCHNG SRESEXCDBG.83274 ip a 
a eRe [44 
69 20 76 65 20 6D 74 100C P.AlQ: .AS <9>\rtm = device i ime i \ : 
$ $8 78 & a e3 re : Bee CII rtm evice is realtime in nature 
65 4 1 104A é 
g 104F ASCII <0? : 
pi8 68 1050 P.AIP -LONG 17694755 : 
09 0 4 1054 -ADDRESS P.AIQ : 
20 $8 $3 4 oF } 58 P.AIS ASCII <9>\rck = device has read checking ena\ : 
Sa a a | rr : 
019 008? 1968 parr: “tone!  }3823$8 
63 09 ay 3 1988 P.ALU ASCH OS Nuk device h ite checki \ : 
$9 $8 eh . we evice has write checking en ; | 
6— 65 20 67 oF 010A6 3 
64 65 6C 62 $ 010AB -ASCII \abled\ ; 
010E0028 01080 P.AIT LONG 17694760 3 
00000000" 01084 TADDRESS P.AIU ; | 
| 


-PSECT EXCHSDBG_CODE ,NOWRT,2 


0004 00000 .ENTRY EXCHS$DBG_UTL_PRINT_DEVCHAR, Save R2 7 0579 
52 000000006 00 9€ 00002 MOVAB LIBSPUT_OUTPOT, R2 ; 
07 AC £9 00009 BLBC _—CObV,,:*1$ > 0585 
0000" CF 9F 0000D PUSHAB P.AGR : 0587 
62 01 FB 00011 CALLS #1, LIBSPUT_OUTPUT ; 
AC 01 £1 00014 1$: BBC #1, DEV, 2$ : 0588 
0000" CF 9SF 00019 PUSHAB P.AGT : 0590 
62 01 FB 0001D CALLS #1, LIBSPUT_OUTPUT ; 
AC 02 a 00020 2$: BBC #2, DEV, 3$ : 0591 
0000' CF 9F 00025 PUSHAB P.AGV : 0593 
62 01 FB 00029 CALLS #1, LIBSPUT_OUTPUT ; 
AC 03 €1 b00¢¢ 3$: BBC #3, DEV, 4$ > 0594 
0000' CF 9F 00031 PUSHAB P.AGX : 0596 
62 01 FB 00035 CALLS #1, LIBSPUT_OUTPUT ; 
AC 04 a 0038 4$: BBC #4, DEV, 5$ : 0597 
0000' CF 9F 00030 PUSHAB P.A : 0599 
62 01 FB 00041 CALLS #1, LIBSPUT_OUTPUT ; 
AC 05 a 00044 5$: BBC #5, DEV, 6$ : 0600 
0000' CF 9F 90049 PUSHAB P.AH : 0602 | 
62 01 FB 00040 CALLS #1, LIBSPUT_OUTPUT : 
AC 06 a 0050 6$: BBC #6, DEV, 7$ > 0603 | 
0000' CF 9F 00055 PUSHAB P.AHD > 0605 
62 01 Fe 0059 CALLS #1, LIBSPUT_OUTPUT ; 
06 ac 95 0005¢ 7s: TSTB —_—dDEV : 0606 
07 18 0005F BGEQ ; 
0000' CF 9F 00061 PUSHAB P.AHF : 0608 
62 01 FB 0065 CALLS #1, LIBSPUT_OUTPUT ; 
07 05 Ac 0068 8$: BLBC =—+DEV+1, 9S : 0609 
0000' CF OF 006¢ PUSHAB P.AHH : 0611 
62 1 FB 09 CALLS #1, LIBSPUT OUTPUT : 
AC 5 a 0073 9$: BBC #5, DEv+l1, TOS > 0612 
0000' CF 9F 0007 PUSHAB P.AHJ : 0614 
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v04-000 exch$dbg_utl_print_devchar — 12-88-18 99:33:68 EXCHNG.SRCJEXCDBG.B32; 1 . (9) | 
62 1 FB 0007¢ CALLS #1, LIBSPUT OUTPUT ; 

07 05 At 8% £1 O007F 108: BBC 6 bevel, 118 ; 0615, 
0000' CF 9F PUSHAB P. AHL ; 0617, 
62 1 Fe 8 CALLS #i, At oe OUTPUT : 

05 AC ) 088 11$: TSTB EVs + 0618 | 

07 18 OO8E BGEQ 12$ : | 

0000" CF 9F 000 PUSHAB P.AHN + 0620. 

6 01 FB 0094 CALLS #i, L18seuT_ OUTPUT : | 

0 06 AC : 0097 12$: LBC ——dBEV+2, : 0621 

0000' cr F 0098 PUSHAB P.AHP + 0623 
62 1 FB 0009F CALLS #1, LIBSPUT_OUTPUT : 

07 06 AC 01 gt OOAg 13$: BC #1, DEV+2, T4$ + 0624 

0000" CF 9F OOOA PUSHAB P.AHR + 0626 

62 01 FB OO0AB CALLS ai. LIB$PUT_OUTPUT : 
07 06 AC 02 a OOAE 14$: BBC #2, DEV+2, T5$ 3 0627 

0000' CF 9F 000B PUSHAB P.AHT : 0629 

62 01 FB 00087 CALLS #1, LIBSPUT_OUTPUT : 
07 06 AC 03 €1 OOOBA 15$: BC #3, DEV+2, T6$ : 0630 

0000' CF 9F OOOBF PUSHAB P.AHV : 0632 

62 01 FB 000C3 CALLS #1, LIBSPUT_OUTPUT : 
07 06 AC 04 al 000C6 16S: BC #4, DEV+2, T7$ : 0633 

0000" CF SF 000CB PUSHAB P.AHX + 0635 

62 01 FB OOOCF CALLS #1, LIBSPUT_OUTPUT : 
07 06 AC 0S €1 90002 17$: BBC #5, DEV+2, TBS : 0636 

0000' CF SF 000D PUSHAB P.AHZ : 0638 

62 01 FB 000DB CALLS #1, LIBSPUT_OUTPUT : 
07 06 AC 06 £1 9000¢ 18$: BBC #6, DEV+2, T9$ : 0639 

0000' CF 9F OO0E PUSHAB P.AIB + 0641 

62 01 FB OO00E7 CALLS #i, bi BSPUT_OUTPUT : 
06 AC 95 OOOEA 198: TSTB = DEV+ : 0642 

07 18 OO0ED BGEQ 20$ ; 
0000" CF 9F OOOEF PUSHAB P.AID > 0644 

a 01 FB OOOF3 CALLS #i, lesPuT_ OUTPUT ; 
0 07 AC €E9 000F6 208 BLBC _—C+DEV+ : 0645 

0000" CF SF OOOFA PUSHAB P.AIF > 0647 

62 01 FB O00rE CALLS #1, LIBSPUT_OUTPUT : 
07 07 AC 01 €1 00101 218: BC #1, DEV+3, 22$ > 0648 

0000' CF 9F 00106 PUSHAB P.AIH : 0650 

62 01 FB OO10A CALLS #i, LIBSPUT ogyrrut : 
07 07 AC 02 €1 0010D 22s: ¢ #2, DEV+3 > 0651 

0000" CF 9F 00112 PUSHAB  P.AIJ : 0653 

62 01 FB 00116 CALLS #1, LIBSPUT_OUTPUT : 
07 07 AC 03 a 00119 238: BC #3, DEV+3, 24$ : 0654 

0000' CF OF 9011 PUSHAB P.AIL : 0656 

62 1 FB 001 CALLS #i, LIBS puT QuTPUT : 
07 07 AC 4 a 01 24$: BC #4, DEV+3, 2 : 0657 

0000" CF 9F OO12A PUSHAB P.AIN : 0659 

62 oi FB 0012E CALLS #1, LIBSPUT_OUTPUT : 
07 07 «AC 5 a 91 1 25$: 6BC #5, DEV+3, 26$ : 0660 

0000" CF 9F 001 PUSHAB  P.AIP : 0662 

62 1 FB oi A CALLS #i, L1BSPUT soyrrur : 
07 07 «AC 6 a 1 p 26$: ¢ #6, DEV+ : 066 

0000' CF SF 0014 PUSHAB P.AIR > 066 

62 01 F 146 CALLS #i, AY IBSPUT_OUTPUT ; 
07 AC 95 00149 278: TSTB Deve > 0666 
07 «+1 14C GEQ $ ; 

0000' CF 9F O014E PUSHAB P.AIT > 0668 
| 
| 
| 
| 
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e | 
vose000° exchsdbgcuttprintrdevchar oes “UTines: 187 880-18R 99:53:88 — HeXcunc sAdextoud:o35+4 poet 
i 1 AB ABH ane. MLS FA: ggeerer-cure 
4 001 RET y 
; Routine Size: 345 bytes, Routine Base: EXCHS$DBG_CODE + 093D 
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y0s-000 exch$dbg_utl pr nt_devchar wich 12286871382 93:39:68 EXCHNG SRESEXCDBG.03224 , (10) ? 
eB? 0672 1 END | 6 
86 0673 0 ELUDOM | e 
| 6 
go 
-EXTRN LIBSSIGNAL, LIB$STOP ? 
PSECT SUMMARY e 
Name Bytes Attributes 
EXCHSDBG_PLIT 4280 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
EXCHSDBG_CODE 2710 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
EXCHSDBG_OWN 180 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
reaareeninene Symbols -<------- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBILIB.L32;1 18619 106 0 1000 00:01.9 
_$255$DUA28: CEXCHNG.OBJJEXCLIB.L32;1 1151 56 4 79 00:01.4 


; Size: 2710 code + 4460 data bytes 
Run Time: 00:53.1 
Elapsed Time: 02:55.9 
Lines/CPU Min: 760 


) 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:EXCDBG/OBJ=OBJ$:EXCDBG MSRC$:EXCDBG/UPDATE=(ENH$:EXCDBG) 


Lexemes/CPU-Min: 26418 
Memory Used: 348 pages 
Compilation Complete 
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